Hi all, the following script is meant to hit submit choice of a remote
site and retrieve the generated data.
#!/usr/sbin/perl -w
use strict;
use HTTP::Request::Common qw(GET);
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
for (my $x = 0; $x < 3; $x++) {
my $req = GET
"http://ca.expasy.org/cgi-bin/randseq.pl?comp=equal&size=200";,
[ search => 'www', errors => 0 ];
my @lines = split(/\n/, $ua->request($req)->as_string);
my $count = @lines;
#print "There were <$count> elements in this array\n";
my $found = "FALSE";
for (my $y = 0; $y < $count; $y++) {
if ($lines[$y] =~ qw(^SQ)) {
$found = "TRUE";
}
if ($lines[$y] =~ qw(^//)) {
$found = "FALSE";
}
if ($found eq "TRUE") {
print $lines[$y],"\n";
}
}
}
The script output should be shomething like this:
SQ SEQUENCE 200 AA; 23795 MW; E4395252AD1E3A24 CRC64;
LIMVSYWTRF YHYDNFGKCT PQIHWADEPF PRALDDVCNM SGQAPEYSNC YPHDINKLGL
WLPRAKCWAV TSVPAHEITF KEVHGYRCVC IELIKRQNKS SKQMIHKMFE FRQGLNGMFW
PGLTVGNMSW DQSRCKITWQ DAMHNDWVVK EAHCLNVYDC APMSPESRTC QLWEEFYQFG
DFTWRMIHRY NIGQATTHYM
SQ SEQUENCE 200 AA; 23795 MW; B7F94AB60BE29D14 CRC64;
PWWSYTEGLS SKPMLQYRRR PFRRHAGTIV NCVTLTDGGD QFPDCQTKDC LCNICFDWHL
QAMHYFPKPP GRYHCWNQIF SFLRKEEIES AVVDEWNMMK EVPQHKHQSQ CADITPVDFY
KTNWIWLGKT VDYMTSYTCW GQCWAGGNYD MALERAAMFP ESNMSQIRAF IHAHVYIFHV
NGLKWNLIHS MRVYMKNCEE
SQ SEQUENCE 200 AA; 23795 MW; 232F5AD48465012D CRC64;
DHRETYQFWW RDEKQDHVLA MKAQDWYLVV GFWMICGPST SAKFFAMVYS YRWNITLYQP
RTHTGDQIVY NEPSKAAALL AFDYFCTMRF EPHVCDFWND NIIHEIEAIN GTYCKGQPWC
MSMILLGDCI YGMTLHEGVE PNDVLWHCSS FRKHECMQVP PHWQRPQCSY KCNKIPGNRR
TFQKTKNMHV LWAESRNSMG
When I run the script (./script.pl) I have got an error message saying
Use of implicit split to @_ is deprecated at ransep.pl line 20.
Use of implicit split to @_ is deprecated at ransep.pl line 23.
Any clue about what is going on here?
Cheers
--
***************************************************************************
PEDRO a. RECHE gallardo, pHD TL: 617 632
3824
Scientist, Mol.Immnunol.Foundation, FX: 617 632 3351
Dana-Farber Cancer Institute, EM:
[EMAIL PROTECTED]
Harvard Medical School, EM:
[EMAIL PROTECTED]
44 Binney Street, D610C, URL:
http://www.reche.org
Boston, MA 02115
***************************************************************************
