我已经搜索了几个小时,并且发现了大量资源,但似乎无法将信息放在一起用于我的目的。我有一个文件:Perl:正则表达式
FirstName LastName
FirstName LastName
FirstName LastName
etc...
这是学生从他们的演示中分配给班级的作业。下面的代码中有99%来自模板脚本,我会评论我的贡献在哪里。我应该找到所有以元音开头的姓并将其输出到文本文件中。看来我的大部分麻烦都是找出了“元音作为第二场的第一个字符”的正则表达式 - 以及我想的基本Perl的一些问题。我该怎么做呢?这真的不值得多少信任,但我只是让自己疯狂试图弄清楚这一点 - 感谢一帮人的任何帮助。
#!/usr/bin/perl
$input = 'names.txt';
open ($info, $input) or die "Could not open $input";
$output = 'hw.txt';
open($fh, '>>', $output) or die "Could not open $output";
@names = split(/\s/, $line); #MINE - probably wrong somehow
while(my $line = <$info>) {
if ($names[2] =~ /^AEIOU/){ #MINE - also probably wrong somehow
print $fh "$line";
}
}
close $info;
close $fh;
http://stackoverflow.com/questions/8023959/why-use-strict-and-warnings – 2014-12-06 01:20:51
我正在盯着这篇文章,想知道这是我的想法还是只是一厢情愿的想法...更多研究 – Shane 2014-12-06 01:40:24
尝试建议什么比想知道的更好。 – 2014-12-06 01:45:00