Perl is een algemene programmeertaal die kan worden gebruikt als een shell -of Web scripttaal . Gebruik Perl om dubbele lijnen vinden in een tekstbestand en print ze op het scherm , of naar een ander bestand . De Perl hash variabele wordt gebruikt om de lijst bevatten . Een while lus analyseert het bestand en telt het aantal keren dat de lijn is te vinden in het dossier . Instructies
1 Open een leeg tekstbestand . Typ de volgende regels aan het Perl-script te starten :
# /usr /bin /perluse strict; gebruik waarschuwingen; kopen van 2 Voer deze lijn aan de variabele die het bestand bevat te maken ! naam : .
mijn $ file = ' filename.txt ' ;
Vervang " bestandsnaam.txt " met de naam van het bestand waarin u wilt zoeken naar duplicaten
< br >
Type 3 de volgende regel om de hash te creëren om de regels van het bestand bevatten :
mijn % lijn ;
invoegen 4 deze lijn te openen het bestand voor lezen :
lokale @ ARGV = ( $ file ) ;
5 Start de while lus die door elke regel van het bestand wordt gelezen :
terwijl ( < > ) {
6 Print de dubbele lijnen op het scherm met deze lijn : afdruk
als $ lijn { $ _ } + + ; }
7 Opslaan en sluit het bestand .
|
