Perl script pour imprimer le modèle de voiture et la couleur de la voiture

Question

Je suis à la recherche d'un script Perl pour imprimer des modèles de voiture et des couleurs, et les données sont ci-dessous. Je veux savoir s'il y a de toute façon à faire en sorte que le modèle de voiture se dirige vers un champ afin que je puisse l'imprimer quand je le veux? les données ci-dessous sont un fichier csv. la façon dont je veux que les données à rechercher un rapport est ci-dessous et

******** Voici comment les données ******** semble

Chevy 
blue,1978,Washington 
brown,1989,Dallas 
black,2001,Queens 
white,2003,Manhattan 

Toyota 
red,2003,Bronx 
green,2004,Queens 
brown,2002,Brooklyn 
black,1999,Harlem 

** ********* Voilà comment je suis en train d'obtenir les données à rechercher dans un rapport ***********

Model Car: Toyota

Couleur: Rouge Année: 2002 Ville: Queens

Answer 1

open IN, "< somefile"; 
while (<IN>) { 
    chomp; 
    if (m/,/) { 
    @temp = split /,/, $_; 
    printf "Car model: %s\nColor: %s\nYear: %s\nCity: %s\n\n", $make, @temp; 
    } else { 
    $make = $_; 
    } 
} 

Answer 2

je passer par la ligne de fichiers en ligne et pour chaque ligne (pseudo-code, non testé):

if ($line ~= /\w+,\d+,\w+/) { # matches the lines with the information 
    my $array = split $line at , 
    print to file array[0] + "," + array[1] + "," + array[2] + "\n" 
} elsif ($line ~= /\w+/) { # matches the car model since the information was already matched 
    print "Car Model:" + $line + "\n" 
} else { # must be the whitespace so you know the information about the car is done 
    print "\n" # to separate the car information 
} 

Si vous ne disposez pas de la ligne vide dans votre fichier csv puis effectuez les newline pour séparer les modèles de voiture ailleurs

Answer 3

open my $fh, '<', 'filename' or die $!; 

while (<$fh>) { 
    next if /^\s*$/; 
    my @fields = split /,/, $_; 
    print("Car Model: $fields[0]\n"), next if @fields == 1; 

    my %data; 
    @data{qw(color year city)} = @fields; 
    print "Color:$data{color} Year:$data{year} City:$data{city}\n"; 
} 

Answer 4

Vous pouvez lire les fichiers CSV avec Text::CSV. Ce module captera tous les cas de bords que vous risquez de manquer dans votre propre implémentation.

Consultez perldoc perldsc et perldoc perldata pour obtenir de l'aide sur les structures de données perl.