2. Fórumok
  3. OS, alkalmazások
  4. Shell script topik

Új hozzászólás Aktív témák

  • doc doc nagyúr
    #759
    Új Válasz
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    doc
    doc
    nagyúr
    válasz doc üzenetére #758

    meg akkor mar legyen teljes, a masodik feladatot megoldo script:

    my $line = "";
    foreach (<>)
    {
    my @val = split;
    if ($val[2] == 0)
    {
    print "$line\n" if ($line ne "");
    $line = substr($_,0,20).$val[-1];
    }
    elsif ($line ne "")
    {
    $line .= " $val[-1]";
    }
    }
    print "$line\n";

    hasznalata ertelemszeruen perl scriptedneve.pl <javitott.txt

    vagy ha egyben akarod a kettot hasznalni:

    perl lapa1.pl <data.txt | perl lapa2.pl

    sot, ha POSIX-kompatibilis oprendszert hasznalsz (gyakorlatilag a windowson kivul barmi), akkor a script elejere biggyesztve a #!/usr/bin/perl -w sort es futtathato attributumot allitva, ennyi:

    lapa1.pl < data.txt | lapa2.pl

Új hozzászólás Aktív témák