【Perl 】初心者コーナーPart5

>>131
直接には役に立てなかったけど、上手くいってよかった。
お仕事頑張って。（ちょっと無責任かな.......）

>この場合もファイルハンドルでいいのでしょうか？
はい。ちなみに、
perldoc -f eof
でPerlの関数（この場合はeof）についてのマニュアル（英語）を読むことが出来ますよ。
他のも色々試してみてください。

>>139
これでいいか？

#!/usr/bin/perl

@url = split /\n/ , <<;
www.hogehoge.com
www.hogehoge-u.ac.jp
hogehoge.com
http://hogehoge.com/
http://hogehoge.com
http://www.hogehoge.com/

foreach(@url){
    m%([0-9a-z\-]+\.)*?([a-z0-9-]+)\.([a-z]{2,3})(?:\.([a-z]{2}))?([^a-z]|$|/$)%i;
    print "$_ :\t \$1 = $1, \$2 = $2, \$3 = $3, \$4 = $4\n";
}

>>139 こんな感じ？？

$str = "http://www.microsoft.com/";
$str =~s/(http:\/\/)?([^\/]+)(\/)?/$2/;
@array = split /\./, $str;