what does &extra' mean? or for example &extra'itemstotalbe(scalar,
@colwith)
in genral what does the &<>' mean?
The information contained in this communication is
confidential, is intended only for the use of the recipient
named above, and may be legally privileged. If the reader
of this mes
well I solved the thng, but the thing is that I am only reading the very
first line... it is suppouse to read all the lines that the document
have... I know I have a mistake some where but belive me in my head the
if while and so on are on a loop. here is the code
#!/usr/bin/perl
#Cambiar la l
#!/usr/bin/perl
#Cambiar la linea anterior para que corresponsa a su sistema
#ejecutando "which perl" le dice conde esta el ejecutable
unshift (@INC, $ENV{'W2H_POSTPROCESS_PATH'});
require "XXX_cfg.pl"; # config file
$database="test";
# Open input and output files */
open(INFILE,"<$ARGV[0]");
I am checkin the reg exp but are there site with examples about them?
like for example I want to find the very first word tha is always in the
next line after a line with only underscores, someting like>
__
hy
so I would like to know wich woud be the reg exp for a case like that..
ok so checking the regexp at perldoc, and trying toundertand this ioen I
geot for
while ($buffer !~ /\s\.\./) ; may be soeting like while buffer is not
containnig spaces followed by 2 dots then do what follows, ok
for
while ($buffer !~/here is the pattern list|list/) may be something like
whi
I have
#search and store
foreach my $pattern (@patterns)
{
while ($query_src=~ /$pattern/g)
{
$query_counts{$pattern}++;
}
while ($sbjct_src=~ /$pattern/g)
{
$sbjct_counts{ $pattern }++;
}
}
and
foreach my $key (sort @patterns)
{
print OUT "\t '$key' seen $query_count
