DOWN LOAD BBS
HOME
HELP
新規作成
新着記事
ツリー表示
スレッド表示
トピック表示
ファイル一覧
検索
過去ログ
■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
/
└> 関連するレス記事をメールで受信しますか?
NO
YES
/ アドレス
非公開
公開
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 =
){ > $Line =~ s/(((s?https?|ftp):\/\/|mailto:)[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/
$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/
解決したらチェックしてください!
プレビュー/
Mode/
通常管理
表示許可
Pass/
HOME
HELP
新規作成
新着記事
ツリー表示
スレッド表示
トピック表示
ファイル一覧
検索
過去ログ
-
Child Tree
-
-
Antispam Version
-