DOWN LOAD BBS [One Message View / Re[1]: ハイパーリンク]

DOWN LOAD BBS

■156 / 1階層)

　ハイパーリンク

□投稿者/ hidetake -(2003/03/18(Tue) 00:37:51)

引き続いて perl 版！

この程度の処理であれば数百KB の perl.exe をどこからか
持ってきても良いだろうし，JPerl.exe + Perl300.dll だけ
でも可能・・・

ex. perl httplink.pl infile outfile

-------------------------------------------------------------------------------
#!/usr/bin/perl

if ($#ARGV ne 1) {
print "usage: htmllink.pl infile outfile\n";
exit;
}
$sfile = $ARGV[0];
open(IN, $sfile) || die "Can't open infile: $sfile";
$dfile = $ARGV[1];
open(OUT, "> $dfile") || die "Can't open outfile: $dfile";

while($Line = ){
$Line =~ s/(((s?https?|ftp):\/\/|mailto:)[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/$1<\/a>/gi;
print OUT "$Line";
}

close(IN);
close(OUT);
-------------------------------------------------------------------------------

[メール受信/OFF] 削除キー/

→Re[2]: ハイパーリンク /hidetake
　

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
ハイパーリンク / hidetake (03/03/18(Tue) 00:36) #155
`└` ハイパーリンク / hidetake (03/03/18(Tue) 00:37) #156 ←Now
`└` Re[2]: ハイパーリンク / hidetake (03/03/18(Tue) 00:39) #157 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
└> 関連するレス記事をメールで受信しますか? / アドレス
Title	/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No156に返信(hidetakeさんの記事) > 引き続いて perl 版！ > > この程度の処理であれば数百KB の perl.exe をどこからか > 持ってきても良いだろうし，JPerl.exe + Perl300.dll だけ > でも可能・・・ > > ex. perl httplink.pl infile outfile > > ------------------------------------------------------------------------------- > #!/usr/bin/perl > > if ($#ARGV ne 1) { > print "usage: htmllink.pl infile outfile\n"; > exit; > } > $sfile = $ARGV[0]; > open(IN, $sfile) \|\| die "Can't open infile: $sfile"; > $dfile = $ARGV[1]; > open(OUT, "> $dfile") \|\| die "Can't open outfile: $dfile"; > > while($Line = <IN>){ > $Line =~ s/(((s?https?\|ftp):\/\/\|mailto:)[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/<a href=\"$1\">$1<\/a>/gi; > print OUT "$Line"; > } > > close(IN); > close(OUT); > ------------------------------------------------------------------------------- > >
File	/ アップ可能拡張子=> /.gif/.jpg/.jpeg/.png/.txt/.lzh/.zip/.mid 圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回200KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/500KB] 残り:[500KB]
パスワード	/ 半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!
プレビュー/

- Child Tree -
- Antispam Version -