perl split

[Anon]

$new = title,ID,three,fill,author;

foreach $row (@x) {
print " this is each row :$row";
@Item = split(/,/,$new);
foreach $items (@item) {
print "$items";
}

}

I am trying to split the values in the scalar above ,but just doesn't seem to work.

[Anon]

You're using Perl syntax! in PHP @ is not used to mark an array: it's an error operator. You've also missed out a load of quotes. Should be something like:

$vString = "title,ID,three,fill,author";

$vItemList = split(",", $vString);

foreach $vItem ($vItemList)
{
print "$vItem ";
}

You can't write raw regexs into PHP like you can in perl. If you want to use perl-compatible regexs, you have to do something like:

$vItemList = preg_split("/,/", $vString);

[Anon]

I am trying to write a script that takes a tab diliminted file and splits it and stores it in an array and the elemnts of the array should replace variables in an xml file.

is there a way to match the variables in the xml file and then replace them with the elements of the array.

Right now i have just opened files read into a scalar and written to the next file,trying to find a way to identify the variables in the external file and replacing them .

thanks for the help.

sysopen SOURCE,openfil,2 or die "can't open file SOURCE ";
$nfo = <SOURCE>;
close SOURCE;
print "$nfo";

open (TARGET,">>target") or die "Can't open the file TARGET ";
$tar = <TARGET>;
print TARGET "$nfo\n";
close TARGET;
print "$tar";

@it = split(/\t/,$nfo);
foreach $row (@it) {
print " this is each row $it :$row \n";
}

[Anon]

If you want help on PERL scripts, go to a PERL forum.