On Tue, Jul 22, 2008 at 9:18 AM, Panda-X <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I've got this error, anything I can do ?
>
> "Can't locate auto/DBI/data_source.al in @INC "
>
> Code :
>
> use DBI;
> my @dataSource = DBI -> data_source ( "mysql" ) ;
>
> and if I change the as this :
>
>u
Hi,
I've got this error, anything I can do ?
"Can't locate auto/DBI/data_source.al in @INC "
Code :
use DBI;
my @dataSource = DBI -> data_source ( "mysql" ) ;
and if I change the as this :
use DBI;
my $dbh = DBI -> connect ( "dbi:mysql", $adm, $pass ) ;
I got this error :
to all,
i have installed Spreadshee::ParseExcel to parse some large excel data
files.
Here is the problem I'm facing. I need to parse data from columns M to P and
rows 10 to 43000. Now I know that there is a PrintArea method that can print
an area of a worksheet specified in (start row, start col,
hI2all.I have found working script of google suggest script! but in
php... could you give me working in perl?
or maybe found error in my?
php
--
real_escape_string($_POST['queryString'])
if(strlen($queryString) >0) {
$query = $db->query("SELECT value FROM countries WHER
Dermot <[EMAIL PROTECTED]> asked:
> I am trying my hand at creating an package and am a bit
> unsure about some of the inner working of what I've done.
I recommend http://books.perl.org/book/171
> Q3) In new, can I allow for the object create being done with
> more argument like my $page = new
Octavian Rasnita wrote:
>
> I wanted to test something like:
>
> Match only if the string contains somewhere a "ab" in it but it doesn't
> contain "ab" between < and >.
>
> For example:
>
> "zzz <> ttt> ab" - matches
> "z ab xx" - matches
> "zzz ab <>ab> tt" - doesn't match
> "ab " - doesn'
Amit Saxena wrote:
On Mon, Jul 21, 2008 at 2:11 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:
If you were using the <=> operator to compare non-numeric strings
you would get a warning, but any scalar value is a valid string so
you will get no warnings if you compare numeric values with the cmp
oper
Hi,
I am trying my hand at creating an package and am a bit unsure about
some of the inner working of what I've done.
I have a new method
sub new {
my $class = shift;
my $self = {};
$self->{type} = undef;
bless($self, $class);
return $self;
}
I also have a 'types' hash which is outsi
On Mon, Jul 21, 2008 at 2:11 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:
>
> Tobias Eichner wrote:
> >
> > I'm currently dealing with a sample program I try to understand. Here it
> is:
> >
> > ---
> >
> > #!/usr/bin/perl
> >
> > use strict; use warnings; use diagnostics;
> >
> > # Array to sort
> >
@rob: Thank you for your hints :-)
__
Gesendet von Yahoo! Mail.
Dem pfiffigeren Posteingang.
http://de.overview.mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://lear
So building something like this in 1 regex:
"zzz <> ttt> ab" - matches
"z ab xx" - matches
"zzz ab <>ab> tt" - doesn't match
"ab " - doesn't match
That took me a while to work out but it can be done:
#!/usr/local/bin/perl
use strict;
use warnings;
my @data;
$data[0] = "zzz <> ttt> ab";
$data[1
From: "Rob Coops" <[EMAIL PROTECTED]>
> You could simply say this:
> if ( ! m/ab/ ) {
> #make the world go round
> }
> Or assuming you are looping thru a list you could say something like:
> foreach my $item ( @list ) {
> next if ( $item =~ m/ab/ );
> #make the world go round
> }
I also had this p
You could simply say this:
if ( ! m/ab/ ) {
#make the world go round
}
Or assuming you are looping thru a list you could say something like:
foreach my $item ( @list ) {
next if ( $item =~ m/ab/ );
#make the world go round
}
I personaly like the second one better because of the readability but
zhihuali schreef:
> I was wondering if there's a way to specify "not including this
> phrase" in perl regexp.
> Like such two strings:
> axbcabcd
> axbcacbd
>
> If I say "not including the letter a or the letter b" (=~/[^a^b]/)
> then neither of them will be matched.
The [^a^b] doesn't mean what
Ravi Malghan wrote:
> Hi: I have a script which connects to a database when it starts up
>
> $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port;",
> "$username", "$password", {AutoCommit => 1});
>
> followed by a while loop which runs a query for this connection at 60
secon
"Amit Koren" schreef:
> $string="blah 10 20";
> I need to add 5 to the 10, and add 7 to the 20.
#!/usr/bin/perl
use strict;
use warnings;
my %add = (
10 => 5,
20 => 7,
);
while ( ) {
s/ ( [0-9]+ ) / exists($add{$1}) ? $add{$1} : $1 /xge;
print;
}
__D
16 matches
Mail list logo
