my $variable;
my $v = "variable";
eval "\$$v = 42";
print "$variable\n"; #je voudrais avoir 42
if ( $etchosts[$i] =~ $var$ ) {
print $&
}
Scalar found where operator expected at /root/equip line 31, near "$var$ )"
(Missing operator before $ )?)
syntax error at /root/equip line 31, near "$var$ ) "
syntax error at /root/equip line 38, near "}"
#!/usr/bin/perl
use WWW::Mechanize;
use strict;
use diagnostics;
use warnings;
my @url_list =
(
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
(…)bonjour a tous;
j'essaye d'interroger ma base de donnée mysql via perl;
malheuresement , mes script bugs;
mon script est:
use DBI();
$dbh= DBI->connect( "DBI:mysql:mydatabase=nabil;host=192.168.1.10",
"",
"",
{'RaiseError' => 1});
my %data= ();
%data=("num_titi" => "12345a","ref_titi" => "89Fd6",
);
$query ="INSERT INTO titi_nab(num_titi,ref_titi) values('$data{"num_titi"}','$d
ata{"ref_titi"}');";
$sth = $dbh->do($query);
print" "titi_nab" $sth->{'mysql_insertid'} "inseree dans la base"!\n"";
#!/usr/bin/perl -w
use pdf2xml;
my @files =
`find /home/alf/Travail/Biblio -name '*.pdf' -print`;
for (@files) (…)