Hallo Jungs / Mädchen,

Es tut mir leid, denn dies ist wahrscheinlich sehr einfach, aber ich bin langsam Lernen perl und die Notwendigkeit, einige alte Korn-Shell-Skripten.

Ich in der Lage sein müssen, um eine Datei Zeile für Zeile, sondern nur mit einem String an bestimmten Ort auf dieser Linie, zum Beispiel Charakter 20-30. Also meine Datei könnte etwa so aussehen:

Ich will sein, um diese Datei für die Zeichenfolge "orange", aber ich will nur für die Suche nach dieser Zeichenfolge an bestimmten Position, sagen Charakter 7-13. Ich bin daran gewöhnt, in der bash kann ich verwenden | awk '(print $ 2) ", um meine zweite Feld .. aber wie würde ich es in perl mit regulären Ausdrücken?

Thanks a bunch

Wenn Sie möchten, SPLIT einer Linie in Bereichen wie Sie sagen, Sie in bash, dann bis perl's Split () in Subroutine ... Auf der anderen Seite, wenn das, was Sie wirklich wollen, ist, um die Zeichen aus positionX zu positionY, dann perl's unpack ()-Funktion. Sobald Sie Ihre Split-Bereich durch Trennzeichen oder Position, dann können Sie es mit Hilfe von regulären Ausdrücken, um zu sehen, wenn es sich um die Zeichenfolge Sie ...

Ich bin nicht auf die ganze Arbeit für Sie

theeven

Öffnen Sie einfach Datei>
Shop jeder Zeile der Datei in einem Array>
Split jeden Zeilen in Bereichen>
drucken>


$ file \u003d '. / datei.txt';
open (INFO, $ file);
@ Zeilen \u003d <INFO>;
close (INFO);

foreach $ line (@ Zeilen)
(
@ field \u003d split (/ /, $ line);
print "$ Feld [1] \ n";
)


theeven

Danke Jungs, die sich recht einfach aussieht, aber ich auch Forschung entpacken. Ich könnte sie auch in Zukunft, sehr flexibel. Nochmals vielen Dank für Ihre Hilfe.

Auch die substr Befehl ein, und bestimmen, welche besser auf Ihre Bedürfnisse zwischen entpacken und substr.

Ihr erster Schritt ist sicher, was Sie brauchen - Suche innerhalb bestimmter Spalten, oder der Suche nach Bereich.