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

• #758 doc nagyúr ollie #756

  Új Válasz 2011-04-14 16:34:21 #758

  Ú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 ollie #756 üzenetére

  nem azert utalom, mert fuj microsoft meg fuj windows, hanem mert irtozatosakat szoptam vele, millioszor elofordult hogy a talalt megoldas nem mukoott, mert kiderult hogy 'ja igen, ez windows 2000-nel meg megvolt, aztan senki nem tudja miert, de a ms kivette, az xp-ben mar nem mukodik'

  raadasul erre a feladatra semmi nem indokolja a vbs-t, szovegfeldolgozasra perl, esetleg awk kell

  gyorsan osszedobtam egy ronda, de mukodo megoldast perlben az 1. problemara:

  my ($MAX, $last, $lastline, @prevs) = (4, -1,"");
  foreach (<>)
  {
  my $nr = (split(" ",$_))[2];
  print substr($lastline,0,20).($last+1).substr($prevs[$last+1],21) if (!($nr == 0 && $last == $MAX) && ($nr != ($last+1)) && (defined $prevs[$last+1]));
  $prevs[$last = $nr] = $lastline = $_;
  print;
  }

  a hasznalata siman ennyi:

  perl scriptedneve.pl < adatok.txt

  ha uj file-ba akarod iranyitani, akkor:

  perl scriptedneve.pl < adatok.txt > javitott.txt

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