#!/usr/bin/perl -w
#
use strict;
my @shows_to_find = <DATA>;
print "Data input \n";
foreach (@shows_to_find){print;}
print "\n", '-' x (60), "\n";
my @dl_nzb = ();
my $nzb_url = 'url ';
my $amp = ' amp ';
my $cat_id = 'cat_id ';
my $api_username_url = 'url2 ';
my $api_username = 'user name ';
my $api_key_url = 'url 3 ';
my $api_key = 'key';
foreach my $y(@shows_to_find)
{ chomp($y);
my $show_nzb_d = $nzb_url.$y.$amp.$cat_id.$amp.$api_username_u
+rl.$api_username.$amp.$api_key_url.$api_key;
push(@dl_nzb,$show_nzb_d);
}
foreach (@dl_nzb){print;print"\n";}
print "\n", '-' x (60), "\n";
__DATA__
abc dft45.xml
ert rt653.xml
abc ert57.xml
Result:
perl "C:\Documents and Settings\16916\My Documents\new 4.pl"
Process started >>>
Data input
abc dft45.xml
ert rt653.xml
abc ert57.xml
------------------------------------------------------------
url abc dft45.xml amp cat_id amp url2 user name amp url 3 key
url ert rt653.xml amp cat_id amp url2 user name amp url 3 key
url abc ert57.xml amp cat_id amp url2 user name amp url 3 key
------------------------------------------------------------
<<< Process finished.
================ READY ================
|