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

• #761 lapa veterán doc #758

  Új Válasz 2011-04-14 20:51:51 #761

  Ú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

  

  lapa

  veterán

  válasz doc #758 üzenetére

  az lehetséges, hogy az első megoldás a hiányzó 0-kat nem egészíti ki, csak az 1, 2, 3, 4-et? csak valami 80 sor plusz lett az eredetihez képest, pedig párezer 0-s hiányzik.

  mire megnyitom és ellenőrzöm tételesen openoffice-ban a nap lemegy...

  sajnos nem igazán értem mit csinál a szkripted. ami nem baj, csak nem tudom megnézni a választ a fenti kérdésre.

• #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