Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]13181[/thread]

Bestimmte Zeilen und Spalten aus txt. Datei in eine andere txt.-Datei schreiben (Seite 2)

Leser: 5


<< |< 1 2 >| >> 15 Einträge, 2 Seiten
havi
 2009-02-26 08:43
#119165 #119165
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Gast+2009-02-26 01:22:45--
Code: (dl )
perl -anle 'BEGIN{$"=q{,}} $. > 99990 && print "@F[2..5]"' infile

oder kürzer:
Code: (dl )
perl -anle '$. > 99990 && print join ",", @F[2..5]' infile


und was wenn es beim naechsten mal nur 80.000 Zeilen sind und er die letzten
100 will?
jetzt bitte nicht sagen dann bessere die Zahl aus, thema skript mehrmals
verwenden...
leo11
 2009-02-26 10:51
#119166 #119166
User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]
murphy+2009-02-26 00:11:16--
@leo11: Ich bezweifle ja, dass der Ausdruck $spalten[2] .. $spalten[5] wirklich das tut, was hier gewuenscht ist.

Du hast recht.
Struppi
 2009-02-26 12:35
#119167 #119167
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
Naja und einem Perlanfänger sowas wie Golf vorzusetzen dürfte eher nicht zu einem neuen Perlanhänger führen. zumal diese Einzeiler oft nicht unter ActivePerl laufen
Gast Gast
 2009-02-27 00:00
#119190 #119190
Quote
und was wenn es beim naechsten mal nur 80.000 Zeilen sind und er die letzten 100 will?

Und was wenn er nächstens nicht die letzten 100 Zeilen, sondern alle Zeilen, bis auf die mit Zeilennummern aus der fibonacci-Folge haben will? ....
Aufgabenstellung ist recht präzise vorgegeben. Wenn die Zeilennummer unbekannt ist und nur die letzten 100 Zeilen bearbeitet werden sollten, wäre dies auch trivial. Man stellt einfach ein "tail -n100 infile |" vor den Aufruf und lässt den "$. > ..." Quatsch weg...

Quote
Naja und einem Perlanfänger sowas wie Golf vorzusetzen dürfte eher nicht zu einem neuen Perlanhänger führen.

Sorry, aber das sind standard Einzeiler für die Kommandozeile. IMHO nichts golfiges dran. Und (wieder) IMHO sind solche Einzeiler grade für Einsteiger inspirierend, weil sie zeigen wie mächtig perl auf der Kommandozeile bei Textverarbeitungstrivia sein kann.

Quote
zumal diese Einzeiler oft nicht unter ActivePerl laufen

Dann fehlt ActivePerl aber ne ganze Menge. Quasi alles aus "perldoc perlrun".
Wenn du hingegen meinst, dass die quoting-Mechanismen der shells, die ActivePerl-User oftmals vorfinden (cmd.exe zum Beispiel) nicht bourne-shell kompatibel sind, dann hast du wiederum recht.
Das ist aber weniger mein Problem.

Außerdem solltet ihr nicht vergessen, dass vor meinem Post auch schon genug "Vollskript" Varianten gepostet wurden. Von daher versteh ich die Aufregung irgendwie nicht....
Struppi
 2009-02-27 00:27
#119191 #119191
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
Welche Aufregung?
Ich wollte nur auf den Wissensstand des OPs hinweisen. Wenn du meinst das einzeiler die er vermutlich nicht zum laufen kriegt, hilfreich sind, ist es ja ok.
<< |< 1 2 >| >> 15 Einträge, 2 Seiten



View all threads created 2009-02-25 16:35.