Perl begon als een UNIX - gebaseerde scripttaal ontwikkeld door Larry Wall in 1987 . Sindsdien is het geschikt gemaakt voor een veelheid van programmering platforms . Perl was ontworpen om tekstbestand verwerking verwerken en is een uitstekende keuze bij het converteren van bestanden van tekst naar komma's gescheiden waarden ( CSV ) formaat . CSV wordt vooral gebruikt voor het importeren in Excel-spreadsheets . Excel kan CSV -bestanden en plaatsen Lees elke komma's gescheiden waarden in een unieke cel in het werkblad zodat de gebruiker de gegevens verder te verwerken als zij dat nodig achten . Wat je nodig hebt Tekst input file Toon Meer Aanwijzingen 1
Open de bestanden die u wilt proces zal de input file tekst en het output bestand in CSV zijn formaat . De syntax van het open commando is :
geopend INPUT , " < FILENAME " ;
notitiekaarten dat de " < " geeft aan dat het bestand wordt geopend voor lezen toegang . Om een bestand te openen voor schrijftoegang voorafgaan de bestandsnaam met een " > " . Kopen van 2
Lees een regel tekst uit het invoerbestand . Het commando om een regel te lezen ziet er als volgt uit:
$ lijn = ;
Perl zullen personages gelezen uit het bestand tot een harde return /line feed volgorde wordt gelezen < br . > 3
Analyseer de lijn te lezen in unieke gebieden . Gebruik de Perl split commando om het te ontleden . De splitsing commando kan de programmeur aan te geven welk karakter de velden , dit scheidingsteken kan een spatie of een ander teken zijn van elkaar scheidt. Hier het veld separator is de pijp symbool ( " | " ) :
split ( /\\ | /, $ regel) ;
Als er geen unieke variabelen worden opgegeven , dan is de split commando plaatst de velden in gebreke variabelen beginnen met $ 1 en verhogen tot maar veel variabelen zijn nodig . 4
Format de uitgang lijn te worden door komma's gescheiden waarden met de sprintf commando . Hier , Perl gaat om een lijn van tien velden als door komma gescheiden waarden en voegt een return aan het eind :
$ detail = sprintf ( " % s , % s , % s , % s , % s , % s , % s , % s , % s , % s \\ n " , $ 1, $ 2, $ 3 , $ 4, $ 5, $ 6, $ 7, $ 8, $ 9 , $ 10 ) ; 5
Schrijf de opgemaakte lijn naar het output bestand geopend in het begin van het script bestand . Gebruik de Perl afdruk opdracht om te schrijven naar het bestand , het commando er als volgt uit :
druk OUTPUT " $ detail " ; 6
Sluit alle bestanden voor het beëindigen van het Perl-script . Dit is echter niet noodzakelijk , wordt het beschouwd als een goede programmering praktijken . De Perl commando gebruikt om een bestand te sluiten is :