11. kasu praktikoa: bilaketak testuan

      Testu-editore guztiek izan ohi duten Bilatu funtzioa inplementatuko dugu Perl erabiliz: programak regExpOrok.pl izena izango du, eta komando-lerrotik fitxategi-izena eta bilaketa-patroia jaso, eta patroia betetzen duten lerroak bistaratuko ditu pantailan. Letra larrien eta xeheen arteko bereizketarik ez du egin behar programak.
      Adibidez, esaeraLabur.txt fitxategian beti hitza daukaten esaeren bila bagabiltza:

>perl regExpOrok.pl esaeraLabur.txt beti
Beti on nahi duena, maiz gaizki
Nagia, beti lantsu
>

Hona programa:

regExpOrok.pl
 #!/usr/bin/perl
 use warnings;
 use strict;
 open(FITX, $ARGV[0]) or
      die(“Ezin $ARGV[0] fitxategia irekin”);
 my $patroia = $ARGV[1];
 my $lerroa;
 while ($lerroa = <FITX>) {
      print ($lerroa) if ($lerroa =~ m/$patroia/i);
 }
 close(FITX);

Jaitsi   regExpOrok.pl   fitxategia

Iruzkinak (2)

  • testuak-lantzen

    #!/usr/bin/perl

    use warnings;

    use strict;

    # Sarrera: fitxategi baten
    izena eta hitz bat,

    # Irteera: fitxategi horretan hitza zenbat aldiz agertu den

    # Adibidea: perl
    fitxategian-bilatu-eta-kontatu-hitza.pl testua.txt etxe

    #    polit hitza 23 aldiz agertu da

     

    my
    ($fitx_izena, $lerroa, $agerpenak, $hitza);

     

    # Ireki fitxategia eta bilatu nahi den hitza (edo patroia)

    $fitx_izena
    = $ARGV[0];

    $hitza
    = $ARGV[1];

    $agerpenak
    = 0;

    open
    (FI, “$fitx_izena”);

     

    # lerroak banan-banan irakurri eta tratatu

    while ($lerroa = <FI>) {

     
    if ($lerroa =~ /W$hitza/i) {

          
    $agerpenak++;

     
    }

    }

     

    print
    “$hitza $agerpenak aldiz agertu dan”;

     

    print “agur! n”;

     Hitz bat bilatu fitxategian

    Egin Perl
    programa bat fitxategi bat eta hitz bat emanda, irteeran hitz horren
    agerpen-kopurua idatziko duena.

    Adibidez:

     

    perl -w fitxategian-bilatu-eta-kontatu-hitza.pl
    testua.txt etxe

       etxe hitza 23 aldiz agertu da

       agur!

     

    fitxategian-bilatu-eta-kontatu-hitza.pl

  • testuak-lantzen

    #!/usr/bin/perl

    use warnings;

    use strict;

    use LWP::Simple;

    # Sarrera: web bat eta hitz bat

    # Irteera: web horretan hitzaren agerpen-kopurua

    # Adibidez: perl
    webean-bilatu-hitza.pl http://www.sustatu.com Athletic

     

    my ($html, $weba, $agerpenak, $hitza);

     

    # Jaso weba eta bilatu nahi den hitza (edo patroia)

    $html = $ARGV[0];

    $html = “http://” . $html;

    $hitza = $ARGV[1];

    $agerpenak = 0;

    $weba = get($html);

     

    # bilatu hitz horren agerpen guztiak

    while ($weba =~ /W$hitza/gi) {

          
    $agerpenak++;

    }

     

    print
    “$hitza $agerpenak aldiz agertu dan”;

     

    print “agur! n”;

Utzi erantzuna kepa(r)i Cancel Reply

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