15. kasu praktikoa: nola hasi hala amaitu

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

Utzi erantzuna

Zure e-posta helbidea ez da argitaratuko. Beharrezko eremuak * markatuta daude