我要做的是打开一个文件并逐行读取。
一旦我找到我的正则表达式正在寻找什么,我想将每个放入@accounts
数组中并将它们打印到我的屏幕上。
虽然我没有得到任何结果。我一定在这里犯了一个简单的错误?
#!/usr/bin/perl
use strict;
use warnings;
my $line;
my $file;
my $start;
my $end;
my @match;
my @accounts;
print "Enter the file name (example: file.txt): ";
chomp ($file = <STDIN>);
open FILE, $file or die "Cannot open $file read :$!";
while ($line=<FILE>) {
$start = '">';
$end = '</option>';
@match = ($line =~ /$start(.*?)$end/g);
foreach (@match)
{
push @accounts, $_;
print " $_\n ";
}
}