On May 20, 2009, at 4:50 PM, pa...@compugenic.com wrote:
I have the following data structure defined:
my @clients = (
{
name=> 'joe',
count => [ qw( one two three ) ]
}
);
Then I try running the following routine:
for my $client (@clients) {
for my $i ($client->{
Greg Eldridge wrote:
What Benchmark .pm are you using ?
CPAN i/benchmark/ => lists 66 entries, but none of which are simply
Benchmark
Thanks in advance.
http://search.cpan.org/~nwclark/perl-5.8.9/lib/Benchmark.pm
--
David Moreno
http://twitter.com/damog
--
To unsubscribe, e-m
called once for each file
found.
What have you tried so far?
David Moreno
http://twitter.com/damog
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Yeah.
D.
On Sun, 2008-05-25 at 00:36 -0400, Chas. Owens wrote:
> On Sat, May 24, 2008 at 2:28 PM, gypsy <[EMAIL PROTECTED]> wrote:
> > I downloaded a perl script from http://www.tahina.priv.at/~cm/spam/ and
> > it logs its activity. I wish to have my logs exclude level 'debug'.
> >
> > Things tr
Well, take a deeper look. The module itself has no extra dependencies
so, if you can actually put it on your system somehow (even if you have
such a limited access such as FTP or so), you can use the lib pragma to
include the unique PM file. Hack after all, but it'd work, actually.
Good luck
On Feb 17, 2008 3:48 PM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> use IO::Handle;
> STDOUT->autoflush;
>
> to the start of your program.
What's the difference from this to setting $| to true?
--
David Moreno - http://www.damog.net/
Yes, you can.
On Feb 13, 2008 12:30 PM, <[EMAIL PROTECTED]> wrote:
> Thank you to all who replied to this requestnow I
> understand! I appreciate the help and the courtesy
> of the replies! Once againThank You!!
"One more satisfied customer" -said somewhere sometime by
On Feb 12, 2008 4:01 AM, Dr.Ruud <[EMAIL PROTECTED]> wrote:
> "David Moreno" schreef:
>
> > rvtol+news:
>
> Stop top-posting.
Stop inline posting :p
> The question was about a string that looks very much like a path and
> filename.
> If it is a
t in that it doesn't have to do another system call.
>
> On Feb 11, 2008 2:06 PM, David Moreno <[EMAIL PROTECTED]> wrote:
> > On Feb 11, 2008 4:47 PM, John W. Krahn <[EMAIL PROTECTED]> wrote:
> >
> > > lstat $filename;
> > >
On Feb 11, 2008 4:47 PM, John W. Krahn <[EMAIL PROTECTED]> wrote:
> lstat $filename;
> my $size = -s _;
Did you mean:
my $size = -s $_;
?
--
David Moreno - http://www.damog.net/
Yes, you can.
27;);
> print MYFILEE @betaid;
> close (MYFILEE);
> }
>
> any help will be appreciated.
> -K
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Moreno - http://www.damog.net/
Yes, you can.
But where's the fun then? :)
On Feb 11, 2008 4:09 PM, Dr.Ruud <[EMAIL PROTECTED]> wrote:
> Or not code a regex at all, and use a module like File::Basename or
> File::Spec.
--
David Moreno - http://www.damog.net/
Yes, you can.
FAMConnection' undeclared (first use in this
> function)
> Gamin.c:708: error: 'RETVAL' undeclared (first use in this function)
> Gamin.c:712: error: expected expression before ')' token
> Gamin.xs:322: error: expected expression before ')' token
> Gamin.xs:322: warning: left-hand operand of comma expression has no effect
> Gamin.c: In function 'XS_FAMEventPtr_fr':
> Gamin.c:734: error: 'FAMEvent' undeclared (first use in this function)
> Gamin.c:734: error: 'fe' undeclared (first use in this function)
> Gamin.c:735: error: 'FAMRequest' undeclared (first use in this function)
> Gamin.c:735: error: 'RETVAL' undeclared (first use in this function)
> Gamin.c:739: error: expected expression before ')' token
> Gamin.xs:331: error: expected expression before ')' token
> Gamin.xs:331: warning: left-hand operand of comma expression has no effect
> Gamin.c: In function 'XS_FAMEventPtr_hostname':
> Gamin.c:761: error: 'FAMEvent' undeclared (first use in this function)
> Gamin.c:761: error: 'fe' undeclared (first use in this function)
> Gamin.c:762: warning: ISO C90 forbids mixed declarations and code
> Gamin.c:767: error: expected expression before ')' token
> Gamin.c: In function 'XS_FAMEventPtr_filename':
> Gamin.c:787: error: 'FAMEvent' undeclared (first use in this function)
> Gamin.c:787: error: 'fe' undeclared (first use in this function)
> Gamin.c:788: warning: ISO C90 forbids mixed declarations and code
> Gamin.c:793: error: expected expression before ')' token
> Gamin.c: In function 'XS_FAMEventPtr_code':
> Gamin.c:813: error: 'FAMEvent' undeclared (first use in this function)
> Gamin.c:813: error: 'fe' undeclared (first use in this function)
> Gamin.c:814: error: 'FAMCodes' undeclared (first use in this function)
> Gamin.c:814: error: expected ';' before 'RETVAL'
> Gamin.c:815: warning: ISO C90 forbids mixed declarations and code
> Gamin.c:819: error: expected expression before ')' token
> Gamin.xs:356: error: 'RETVAL' undeclared (first use in this function)
> make: *** [Gamin.o] Error 1
>
--
David Moreno - http://www.damog.net/
Yes, you can.
9822 854 227
> Fax: ++91-020 25674090
> Internet: http://www.t-systems.com
> http://www.t-systems.com/>
>
>
--
David Moreno - http://www.damog.net/
Yes, you can.
Heh. "kooks", I might code some Perl next time I hop on my surfboard :)
D.
On Feb 10, 2008 12:59 PM, Randal L. Schwartz <[EMAIL PROTECTED]> wrote:
> >>>>> "MK" == MK <[EMAIL PROTECTED]> writes:
>
> MK> On 02/09/2008 12:31:33 PM, Dav
Heh, why?
On Feb 9, 2008 10:21 AM, MK <[EMAIL PROTECTED]> wrote:
> hey sorry, cancel that
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
It says you should use the experimental method:
> The experimental version of WWW::Mechanize available at
> http://www-mechanize.googlecode.com/svn/branches/plugins/
D.
On Fri, 2008-02-01 at 17:04 +0800, J. Peng wrote:
> I found this module on cpan:
>
> http://search.cpan.org/~sprout/WWW-Mecha
ou'll have your own question.
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
Más vale morir de pie que vivir de rodillas.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
our @EXPORT = qw/mysub/; ?
Or is the Perl 4 way to call subroutines also needed?
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
http://pub.tsn.dk/how-to-quote.php>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
ing starting with
and ending in .
$string =~ s/\A//;
$string =~ s/<\/upsl\-url>\z//;
my @urls = split /<\/upsl\-url>/, $string;
Does the trick. I guess :-)
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
Pobre México: Tan lejos de Dios, tan cerca de los Es
Funny thing:
Jeff Pang wrote:
> $ perl -e 'print $^O'
> linux
User-Agent: Thunderbird 2.0.0.0 (Windows/20070326)
Just trolling :-)
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
Saca tus alas y empieza a volar.
--
To unsubscribe, e-mail: [EMAIL PRO
t am not sure which
> module do I need for that.
A number of modules around LWP can help you with it. WWW::Mechanize,
specifically, can help you with its specific method, content():
$mech->content(format => 'text');
--
David Moreno Garza <[EMAIL PROTECTED]> | htt
indicate the data we need to extract from XML file. I tried used
> Data::Dumper to help, but didn't get the results I though, any help would
> be much appreciated as the best way to parse this data.
I suggest you to use XML::TreePP.
--
David Moreno Garza <[EMAIL PROTECTED]> | h
.html#How_install_private
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
Poor Mexico: So far from God, so close to the United States.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Dr.Ruud wrote:
> The / is taken, but there are many other ways to do multiline comments.
> For one, see perldoc perlpod.
You mean using =begin, =end? They are not exactly multiline *comments*.
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
http://www.georgedi
Neal Clark wrote:
> I always thought it was an acronym, for "Pratical Extraction and
> Report Language". Is that untrue, just one of those post-facto
> expansions?
Indeed, just as Pathologically Eclectic Rubbish Lister.
--
David Moreno Garza <[EMAIL PROTECTED]> |
;; y/a-z/za-y/; print
>
> Buffering: cat can't give all of its output until you finish writing
> to it by closing filehandle o. Hope this helps!
What's the proper way to handle buffering? I mean, to prevent it.
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.
Sumit Shah wrote:
> I have a string like: 'a = 1; b = 2; c = 3; d = 4'
my($c) = $string =~ /c = (\d)/;
Maybe?
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
Una vida sencilla para nada es aburrida.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For add
Mike Blezien wrote:
> thx's, looks like a good place to start w/PDF files, now to find some info
> on DOC files :)
This might help:
http://www.wellho.net/forum/Perl-Programming/convert-a-MS-Word-doc-into-multiple-HTML-pages.html
--
David Moreno Garza <[EMAIL PROT
ded to do a word count, if this is possible to
> do.
This might help you a bit:
http://search.cpan.org/~clotho/CAM-PDF-1.08/lib/CAM/PDF.pm#Document_reading
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
No quiero ser esclavo de tanta publicidad.
--
To unsubscribe,
taken from A is also in Y.
See elements as dependencies. And the dependencies themselves, as sets.
I'm sorry for not stating all of this with the proper mathematical
terms: I'm not used to math terms in English.
Hope this helps.
--
David Moreno Garza
Abajo y a la izquier
ave your ass, just as it saved mine a few weeks ago ;)
http://users.skynet.be/pascalbotte/rcx-ws-doc/perlpost.htm
That's exactly what you are looking for. But not using IO::Socket.
--
David Moreno Garza
Abajo y a la izquierda está el corazón.
ll other modules which make sense.
>
> What are you trying to accomplish?
This would be even better:
perl -mCGI -e1
If it doesn't return anything, then you have Perl and CGI.pm properly
installed.
--
David Moreno Garza
On Mon, 2007-01-22 at 20:09 -0800, Jeff Peng wrote:
> > It depends on what operating system you are using on
> > your host.
> >
> HI,
> I'm using RedHat Linux (AS4) of 2.6 kernel.Thanks.
I'm not experienced with Red Hat, but I'd bet it already contains Perl
core and CGI.pm.
Otherwise, find CGI a
On Mon, 2007-01-22 at 09:05 -0800, Jeff Peng wrote:
> Hello,
>
> I just need Perl core and CGI.pm to be installed on my
> host.How can I do it?thanks.
It depends on what operating system you are using on your host.
Cheers,
David.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
On Sat, 2007-01-20 at 09:31 +1100, Ken Foskey wrote:
> > What's exactly the difference between:
> >
> > ++$lines;
> >
> > and
> >
> > $lines++; ?
>
>
> Nothing in this context.
What about other contexts?
David.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
On Fri, 2007-01-19 at 13:24 +, Rob Dixon wrote:
>++$lines;
What's exactly the difference between:
++$lines;
and
$lines++; ?
David.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On Thu, 2007-01-18 at 21:42 -0500, Mathew Snyder wrote:
> Citlali had provided a regex that almost did what I wanted and then David gave
> me one that did exactly what I wanted.
Yay! We learn from everybody :-)
David.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
On Thu, 2007-01-18 at 07:11 -0800, Peter Scott wrote:
> my $output = `myperlscript.pl 2>&1`;
> send_email($output) if $output;
Doubt:
Isn't send_email($output) in this situation still going to happen? I
mean, even of there is not output on "myperlscript.pl 2>&1", $output is
going to be set, meani
On Thu, 2007-01-18 at 11:44 -0500, Mathew wrote:
> open FILE, "H:\My Music\folderlist.txt";
>
> foreach my $line (readline FILE) {
> $line =~ s/^.*\s//g;
> open FILE2, "H:\My Music\artists.txt";
> print FILE2 $line . "\n";
> close FILE2;
> }
>
> close FILE;
I'd go w
oblem?
What distro are you using? That is requiring you to get X headers.
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
<[EMAIL PROTECTED]> | GPG: C671257D
Si no vuelves por que no quieres, si no por que no tienes pa'l pasaje.
-
file from server
> 1 too server 2 would using the LWP module be a good technique to use?
What procedures you used to do to make the backup manually?
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
<[EMAIL PROTECTED]> | GPG: C671257D
On 18:30 Thu 02 Mar 2006, maillists wrote:
> $Values->{text_field} =~ s/"/"/;
Try adding a `g' on the end of the regexp:
$Values->{text_field} =~ s/"/"/g;
Cheers,
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
43 matches
Mail list logo
