|
|
|
google unix.com
|
|||||||
| Forums | S'inscrire | Forum Rules | Liens | Albums | FAQ | Liste des membres | Calendrier | Recherche | Aujourd'hui, les postes | Marquer les forums comme lus |
| De programmation et de script Shell Posez vos questions à propos de KSH, CSH, SH, BASH, PERL, PHP, SED, awk et d'autres scripts shell et les langages de script shell ici. |
Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-être utile
|
||||
| Fil | Thread Starter | Forum | Réponses | Last Post |
| regex question | xiamin | De programmation et de script Shell | 3 | 03-05-2009 02:53 AM |
| Perl regex aide - la correspondance des parenthèses | cvp | De programmation et de script Shell | 7 | 02-27-2009 05:38 PM |
| Comment puis-je bande de cette ligne en utilisant l'expression rationnelle Perl. | ramky79 | De programmation et de script Shell | 1 | 03-18-2008 12:10 PM |
| regex question | arushunter | De programmation et de script Shell | 8 | 01-04-2007 05:49 PM |
| regex question | rocketkids | UNIX pour les nuls Questions et réponses | 6 | 02-12-2004 05:49 AM |
Powered by 
|
|
|
LinkBack | Thread Tools | Recherche sur ce Thread | Rate Thread | Modes d'affichage |
07-16-2008
|
||||
|
||||
|
Perl regex question
J'ai le code suivant: Code:
#!/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);
}
Il ya redondance dans ce code comme il regarde d'abord pour tous les fichiers se terminant par ". Csv" (ligne 3), puis analyse le nom du fichier (ligne 6) la recherche de caractères et de chiffres. Comment puis-je changer la ligne 3 en une expression régulière, de telle sorte que la ligne 6 peut être enlevé et le tableau @ dt déterminer là? |
| Bookmarks |
| Tags |
| perl, perl regex, regex |
| Thread Tools | Recherche sur ce Thread |
| Modes d'affichage | Rate this thread |
|
|
Fil de Mode
