Ciao ragazzi / ragazze,

Mi dispiace come questo è probabilmente molto semplicemente, ma io sono lentamente apprendimento perl e la necessità di convertire alcuni vecchi Korn shell script.

Ho bisogno di essere in grado di cercare un file riga per riga, ma solo una stringa in corrispondenza particolare posizione su tale linea, per esempio il carattere 20-30. Quindi il mio file potrebbe essere simile a questo:

Voglio essere in grado di cercare il file per stringa "arancione", ma soltanto i desideri per la ricerca di questa stringa alla particolare posizione, diciamo da 7-13 caratteri. Sono abituato a bash in grado di utilizzare i | awk '(print $ 2)' per il mio secondo campo .. ma come faccio a perl utilizzando le espressioni regolari?

Thanks a bunch

Se si desidera dividere una linea in campi come si dice a fare in bash, quindi cercare perl's split () costruita nel subroutine ... D'altro canto, se si vuole veramente è quello di testare i caratteri da positionX a positionY, quindi utilizzare perl's unpack () funzione. Una volta suddiviso il vostro campo da delimitatore o posizione, quindi è possibile verificare con le espressioni regolari per vedere se è la stringa che si desidera ...

Non vado a fare tutto il lavoro per voi

theeven

semplicemente aprire il file>
memorizzare ogni riga del file in un array>
suddiviso in settori linee ogni>
stampa>


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

foreach $ line (@ righe)
(
@ campo \u003d split (/ /, $ line);
print "$ campo [1] \ n";
)


theeven

Grazie ragazzi, suddivisi sembra piuttosto semplice, ma anche i spacchettarli ricerca. Mi si potrebbe utilizzare anche in futuro, molto flessibile. Grazie ancora per il vostro aiuto.

Anche guardare al substr comando, e di determinare che meglio si adatta alle vostre esigenze tra scompattare e substr.

Il primo passo è sicuramente quello di cui hai bisogno - la ricerca all'interno di determinate colonne, o da campo di ricerca.