perl - スペースではなく配列内の Perl LWP::Simple File.txt

Question

ファイルにはスペースがありません。対応する配列内のすべての単語、var のコンテンツを保持する必要がありますか。ファイルはより大きくなりますが、これで問題ありません。

my $file = "http://www.ausa.com.ar/autopista/carteleria/plano/mime.txt"; 

&VPM4362=008000&VPM4381=FFFFFF&VPM4372=FFFFFF&VPM4391=008000&VPM4382=FFFF00&VPM4392=FF0000&VPM4182=FFFFFF&VPM4181=FFFF00&VPM4402=FFFFFF&VPM4401=FFFF00&VPM4412=008000&VPM4411=FF0000&VPM4422=FFFFFF&VPM4421=FFFFFF&VPM4322=FFFF00&CPMV001_1_Ico=112&CPMV001_1_1=AHORRE 15%&CPMV001_1_2=ADHIERASE AUPASS&CPMV001_1_3=AUPASS.COM.AR&CPMV002_1_Ico=0&CPMV002_1_1=ATENCION&CPMV002_1_2=RADARES&CPMV002_1_3=OPERANDO&CPMV003_1_Ico=0&CPMV003_1_1=ATENCION&CPMV003_1_2=RADARES&CPMV003_1_3=OPERANDO&CPMV004_1_Ico=255&CPMV004_1_1= &CPMV004_1_2=&CPMV004_1_3=&CPMV05 _1_Ico=0&CPMV05 _1_1=ATENCION&CPMV05 _1_2=RADARES&CPMV05 _1_3=OPERANDO&CPMV006_1_Ico=0&CPMV006_1_1=ATENCION&CPMV006_1_2=RADARES&CPMV006_1_3=OPERANDO&CPMV007_1_Ico=0&CPMV007_1_1=ATENCION&CPMV007_1_2=RADARES&CPMV007_1_3=OPERANDO&CPMV08 _1_Ico=0&CPMV08 _1_1=ATENCION&CPMV08

コード。

#!/bash/perl .T
use strict;
use warnings;
use LWP::Simple;

my $file = "http://www.ausa.com.ar/autopista/carteleria/plano/mime.txt";
my $mime = get($file);

my @new;

foreach my $line ($mime) {
    $line =~ s/&/ /g;
    push(@new, $line);
}
print "$new[0]\n";

この方法を試してみてください。ただし、開始すると、配列は(すべて一緒に)等しいです

私が必要とする出力

print "$new[1]\n";
VPM4381=FFFFFF

Answer 1

on に置き換えたくない&場合は、splitonに置き換えます&。

@new = split /&/, $line;