05/07/24 11:22:43
（続き）
#!/usr/bin/perl
#
# URLﾘﾝｸ(www.din.or.jp) からのパチもんす。
#
＃... なんだかんだと$mail_regex定義して、
while(<>) {
print "$& \n" if (/$mail_regex/);
}
05/07/24 11:22:43
（続き）
#!/usr/bin/perl
#
# URLﾘﾝｸ(www.din.or.jp) からのパチもんす。
#
＃... なんだかんだと$mail_regex定義して、
while(<>) {
print "$& \n" if (/$mail_regex/);
}