Új hozzászólás Aktív témák
-
doc
nagyúr
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
- Fujifilm X
- A fociról könnyedén, egy baráti társaságban
- Kedvenc zene a mai napra
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Formula-1
- XPEnology
- Rövid előzetest kapott a The Outer Worlds 2
- Poco F7 Pro - jó, de az amatőr sem rossz
- AMD vs. INTEL vs. NVIDIA
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Bomba ár! Dell Latitude 3310 2in1 i5-8G I 16GB I 256SSD I HDMI I 13,3" FHD Touch I Cam I W11 I Gari
- Honor 200 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- Készpénzes / Utalásos Videokártya és Hardver felvásárlás! Személyesen vagy Postával!
- GYÖNYÖRŰ iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3573, 99% Akkumulátor
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest





