Perl 初心者コーナー Part22

[0230 nobodyさん 03/04/21 23:55 ID:mc4GwSLK]

ifより前の部分が書かれてないが、状況から察するに

while (/<a href=\"(.*?)\">(.*?)<\/a>/ig) {push (@i,"$1,$2\n")}