|
|
|
google unix.com
|
|||||||
| Forum | Registrati | Regole Forum | Collegamenti | Album | FAQ | Members List | Calendario | Ricerca | Today's Posts | Mark Forums Read |
| Shell scripting e di programmazione Pubblica domande su KSH, CSH, SH, Bash, Perl, PHP, sed, awk e da altri script di shell e linguaggi di scripting shell qui. |
Più di UNIX e Linux Forum Argomenti potreste trovare utili
|
||||
| Filo | Thread Starter | Forum | Risposte | Ultimo Post |
| regex questione | xiamin | Shell scripting e di programmazione | 3 | 03-05-2009 02:53 AM |
| Perl regex aiuto - parentesi corrispondenti | CVP | Shell scripting e di programmazione | 7 | 02-27-2009 05:38 PM |
| Come faccio a striscia questa linea utilizzando le espressioni regolari perl. | ramky79 | Shell scripting e di programmazione | 1 | 03-18-2008 12:10 PM |
| regex questione | arushunter | Shell scripting e di programmazione | 8 | 01-04-2007 05:49 PM |
| regex questione | rocketkids | UNIX for Dummies Domande & Risposte | 6 | 02-12-2004 05:49 AM |
Powered by 
|
|
|
LinkBack | Thread Tools | Cerca in questo Thread | Rate Thread | Modalità di visualizzazione |
07-16-2008
|
||||
|
||||
|
Perl regex questione
Ho il seguente codice: Codice:
#!/usr/bin/perl -w
@files = <*.csv>;
foreach $file (@files) {
open(FH, $file) || die("Error: Cannot open file $file for reading.");
my @dt = ($file =~ /^(\w+).(\d{6})\.csv$/);
while (<FH>) {
print "@dt[0] $_\n";
}
close(FH);
}
Vi è la ridondanza in questo codice in quanto prima i controlli per tutti i file che terminano in ". Csv" (linea 3) e successivamente analizza il nome del file (linea 6) alla ricerca di caratteri e cifre. Come faccio a cambiare la linea 3 in una espressione regolare, per esempio la linea 6 che possono essere rimossi e l'array @ dt essere determinato lì? |
| Segnalibri |
| Tag |
| perl, perl regex, regex |
| Thread Tools | Cerca in questo Thread |
| Modalità di visualizzazione | Vota questo thread |
|
|
Threaded Mode
