Hilfe GET Value splitten

Hallo,

ich bräuchte mal einen Perl Entwickler der mir helfen kann.

Ich möchte in XFile in einer Sub den Query String splitten bzw ein Query Value.

Und zwar list.

Irgendwie sind die Werte aber jedes mal anders.


Die SUb sieht so aus.

Code:

---

sub Finfo
{

        $f->{list}=~s/\r//gs;
  my ($i,@arr);
  for( split /;/,$f->{list})
  {
      $i++;
      my ($code,$fname) = /\w\/(\w{12})\/?(.*?)$/;
      next unless $code;
      $fname=~s/\.html?$//i;
      $fname=~s/_/ /g;
      #my $filter_fname="AND file_name='$fname'" if $fname=~/^[^'"<>]+$/;
      my $file = $db->SelectRow("SELECT f.file_id,f.file_name AS fname,f.file_size,s.srv_status FROM Files f, Servers s WHERE f.file_code=? AND s.srv_id=f.srv_id",$code);
      push(@arr,{url=>$_,color=>'red',  status=>"Not found!"}),next unless $file;
      $file->{file_name}=~s/_/ /g;
      push(@arr,{url=>$_,color=>'red',  status=>"Filename don't match!"}),next if $fname && $file->{file_name} ne $fname;
      push(@arr,{url=>$_,color=>'orange',status=>"Found. Server is not available at the moment"}),next if $file->{srv_status} eq 'OFF';
      $file->{fsize} = $ses->makeFileSize($file->{file_size});
      push(@arr,{url=>$_,color=>'green', status=>"Found", fsize=>$file->{fsize}, fname=>$file->{fname}});
         
  }
 
  &SendJSON(@arr);
 
}

---

Erstmal wenn ich list=http://link.to/122;http://link.to/134 aufrufe und $f ausgebe dann ist ein Link ein Parameter also [] => http://link.to ...

Ach anders ich hab einfach die

sub CheckFiles

kopiert

und @arr als Json ausgeben lassen. Er nimmt zwar list als URL Get aber immer nur einen Link auch wenn ich \n splitte. Jemand ne Idee