|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
foreach( @src ) {
print;
}
| |
|
|
|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
foreach( @src ) {
$_ =~ s/\n/<br>/g;
print;
}
| |
|
|
|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
foreach( @src ) {
$_ =~ s/</</g;
$_ =~ s/>/>/g;
$_ =~ s/\n/<br>/g;
print;
}
| |
|
|
|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
print "<pre>";
foreach( @src ) {
$_ =~ s/</</g;
$_ =~ s/>/>/g;
$_ =~ s/\n/<br>/g;
print;
}
print "</pre>";
| |
|
|
|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
print "<pre>";
foreach( @src ) {
$_ =~ s/</</g;
$_ =~ s/>/>/g;
print;
}
print "</pre>";
| |
|
|
実は、<PRE> タグで囲むと、<BR> タグは必要ありません。
| |
|
|
|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
print "<pre style='font-family:HG創英角ゴシックUB;font-size:14'>";
foreach( @src ) {
$_ =~ s/</</g;
$_ =~ s/>/>/g;
print;
}
print "</pre>";
| |
|
|
|
|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
open( IN, "./ponny.cgi" );
@src = <IN>;
close( IN );
$headstyle = "line-height:2;border-style:outset;background-color:skyblue";
print "<pre style='font-family:HG創英角ゴシックUB;font-size:14'>";
foreach( @src ) {
$_ =~ s/</</g;
$_ =~ s/>/>/g;
$_ =~ s/sub\s*[A-Za-z0-9_]*\s*\{/<h4 style='$headstyle'>$&<\/h4>/g;
print;
}
print "</pre>";
| |
|
|
|