largetext.pl
来自「SconeServer is a modular, object-orienta」· PL 代码 · 共 54 行
PL
54 行
#!/usr/bin/perl -wprint "Content-Type: text/html\r\n";print "\r\n";print "<html>\n";print "<head></head>\n";print "<body>\n";print "<h1>HARRY POTTER</h1>\r\n";open(FILE,"/home/wedge/doc/hp.txt");while (<FILE>) { foreach my $a ('Harry','Potter', 'Ron','Weasley','Fred','George','Ginny','Arthur', 'Hermione','Granger') { s/$a/<span style='color:#0c0'>$a<\/span>/g; } foreach my $a ('Draco','Malfoy','Lucius', 'Crabbe','Goyle', 'Lord Voldemort','Voldemort','Dark Lord', 'Bellatrix','Narcissa') { s/$a/<span style='color:#f00'>$a<\/span>/g; } foreach my $a ('Albus','Dumbledore', 'Severus','Snape', 'McGonagall', 'Argus','Filch', 'Slughorn','Sirius', 'Rubeus','Hagrid', 'Trelawney', 'Half Blood Prince', 'Half-Blood Prince') { s/$a/<span style='color:#00f'>$a<\/span>/g; } foreach my $a ('Hogwarts','Gryffindor','Slytherin','Hufflepuff','Ravenclaw') { s/$a/<span style='color:#f0f'>$a<\/span>/g; } s/"([^"]+)"/<big>“<\/big> <em>$1<\/em> <big>”<\/big>/g; if (/^(Chapter \d+.*)$/) { print "<h2>$1</h2>\n"; } else { print "<p>\n"; print $_; print "</p>\n"; }}close(FILE);print "</body>\n";print "</html>\n";⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?