perl初心者BLOG

2009-05-31

[][]最長一致 19:41

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
$html =<<EOT;
<html>
        <head>
        </head>
        <body>
        <font color=red>hello</font><b>goobdy</b>
        </body>
</html>
EOT
while($html =~ /<.+>/g) {
        print $&, "\n";
}
~$

・実行結果

~$ ./hoge.pl
<html>
<head>
</head>
<body>
<font color=red>hello</font><b>goobdy</b>
</body>
</html>