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

• #759 doc nagyúr doc #758

  Új Válasz 2011-04-14 16:44:36 #759

  Ú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

  Privát üzenet küldése

  

  doc

  nagyúr

  válasz doc #758 üzenetére

  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