Slik konverterer tekst til CSV i Perl

October 23

Perl startet som et UNIX-basert skriptspråk utviklet av Larry Wall i 1987. Siden da har det blitt oversatt til en rekke programmeringsplattformer. Perl er designet for å håndtere tekstfil behandling og er et utmerket valg når du konverterer filer fra tekst til kommadelte verdier (CSV) -format. CSV brukes primært for import til Excel regneark. Excel kan lese CSV-filer og steder hver kommaseparert verdi til en unik celle i regnearket slik at brukeren kan ytterligere behandle informasjonen som de ønsker.

Bruksanvisning

1 Åpne filene du ønsker å behandle, vil inndatafilen være tekst og output fil i CSV-format. Syntaksen til den åpne kommandoen er:

åpen INPUT, "<FILNAVN";

Merk at "<" indikerer at filen er åpnet for lesetilgang. For å åpne en fil for skrivetilgang foran filnavnet med et ">".

2 Les en tekstlinje fra inndatafilen. Kommandoen for å lese en linje ser slik ut:

$ Linje = <INPUT>;

Perl vil lese tegn fra filen til en vognretur / linjeskift sekvens blir lest.

3 Analyser linjen leses inn unike felt. Bruk Perl split-kommandoen til å analysere linjen. Den delte kommandoen tillater programmereren å spesifisere hva karakter skiller feltene, dette feltet separator kan være et mellomrom eller andre tegn. Her feltet separator er røret symbolet ( "|"):

split (/ \ | /, $ linje);

Hvis ingen unike variabler er spesifisert, så splittet kommandoen steder feltene i standard variabler som starter med $ 1 og inkrementering til men mange variabler som trengs.

4 Formater utgang linjen for å være kommadelte verdier ved hjelp av sprintf kommandoen. Her er Perl kommer til å lage en linje av ti felt som kommadelte verdier og legge til en vognretur på slutten:

$ Detalj = sprintf ( "% s,% s,% s,% s,% s,% s,% s,% s,% s,% s \ n", $ 1, $ 2, $ 3, $ 4, $ 5, $ 6 , $ 7, $ 8, $ 9, $ 10);

5 Skriv den formatlinjen til utdatafilen åpnet i begynnelsen av skriptfilen. Bruk utskriftskommandoen Perl å skrive til filen, ser kommando som dette:

print OUTPUT "$ detalj";

6 Lukk alle filer før du avslutter Perl-skript. Dette er ikke nødvendig, men regnes det som god programmering praksis. Perl kommandoen brukes til å lukke en fil er:

nær INPUT;