|
CSV (Comma Separated Values ) contiennent du texte ou des champs numériques qui sont séparées par des virgules. Il s'agit d'un format de fichier couramment utilisé pour échanger des données entre des tableurs comme Microsoft Excel ou Microsoft Works, et les applications utilisateur . Les valeurs de texte dans des fichiers CSV sont entourés par des guillemets doubles . Le langage Perl vous offre la ":: CSV texte " module pour l'analyse des données CSV, ce qui vous donne la possibilité d'effectuer la ventilation correcte d'un fichier CSV dans votre programme Perl, si les champs de texte dans le fichier comprennent des virgules. La meilleure façon de montrer ce processus est d'utiliser un exemple , comme une liste d'états et capitales . Choses que vous devez
ActiveState Perl Version 5.12 for Win32
Voir Plus Instructions
1 cliquez sur "Démarrer " de Windows , sélectionnez « Microsoft Works », puis cliquez sur « Microsoft . Tableur Works "
2 Entrez les données suivantes dans les 11 premiers rangs de la colonne" A " :
État (Capital)
Alabama
Californie, Sacramento
Delaware
Floride
Géorgie , Atlanta
Hawaii
Idaho
Kansas Photos Maine
Ohio , Columbus
3 Entrez les données suivantes dans les 11 premiers rangs de la «B» Hôtels 4 Cliquez sur «Fichier» puis cliquez sur «Enregistrer sous ». Entrez " states.csv " dans la case " Nom de fichier " . Choisissez l'option « Text & virgules ( . Csv) " option dans le " Save as type" boîte et cliquez sur le bouton "Enregistrer" .
5 Cliquez sur " Démarrer" de Windows , puis cliquez sur " Bloc-notes" pour ouvrir . l'éditeur de texte Notepad
6 Ajoutez le code suivant dans la fenêtre ouverte :
use strict ;
avertissements d'usage ;
utilisation texte :: CSV_XS ;
fichier # ouvert pour analyser
my $ file = ' c: \\ states.csv ';
# définissent le champ de texte Variable: < p> my $ csv = Text :: CSV_XS -> new ();
ouvert (CSV, "<", $ file ) or die $;
# briser la fichier dans les dossiers de texte
while ( ) {
prochaine if ($ == 1 . ) ;
if ($ csv- > parse ( $ _ )) {
mes @ columns = $ csv -> ( champs );
# afficher chaque enregistrement sur une
" Etat d'impression ligne distincte (Capital) : $ colonnes [ 0 ] \\ n \\ Trank :
$ colonnes [1] \\ r \\ n ";
} else {
my $ err = $ csv- > ; error_input ;
print "Impossible d'analyser la ligne : $ err " ;
} }
près CSV;
7 Cliquez sur "Fichier" puis cliquez sur "Enregistrer". Entrez " parse.pl " dans la case " Nom de fichier " et cliquez sur le bouton "Enregistrer" .
8 Cliquez sur " Démarrer" de Windows , puis cliquez sur "Exécuter". Saisissez "cmd" dans la boîte "Ouvrir" et cliquez sur "OK" pour ouvrir la fenêtre de ligne de commande .
9 Type de dans "cd \\" et appuyez sur la touche "Entrée" .
10 Type de dans "perl parse.pl " à l'invite . Appuyez sur la touche "Entrée" pour exécuter le " parse " script Perl pour analyser les "états" fichier CSV et affiche ses champs de texte à l'écran.
|
