我已經搜索了幾個小時,並且發現了大量資源,但似乎無法將信息放在一起用於我的目的。我有一個文件: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