Karaktere berdinarekin hasi eta amaitzen diren lerroak topatzen dituen programa da honakoa.
hasiBuka.pl
#!/usr/bin/perl
use warnings;
use strict;
my $fitx = $ARGV[0];
my $lerro,
open(FITX, $fitx) or
die(“Ezin izan dut $fitx fitxategia zabaldu!n”);
while ($lerro = <FITX>) {
chomp($lerro);
if ($lerro =~ /^(.).*1$|^.$/) {
# karaktere bakarreko kasua ere aintzat
print (“$lerron”);
}
}
Jaitsi hasiBuka.pl fitxategia
