On Sat, Jun 11, 2011 at 01:15:45PM -0700, Mike McClain wrote:
> # set up an alias for the fastest prime generator
> *primes = \&sieve_eratosthenese_lucky;
>
> and export primes but it doesn't work:
> Undefined subroutine &main::primes called at ./primes.pl line
Is there a way to setup such an alias in the *.pm that will
be correctly exported or am I faced with having to rename
the fastest routine?
Thanks,
Mike
--
Satisfied user of Linux since 1997.
O< ascii ribbon campaign - stop html mail - www.asciiribbon.org
--
To unsubscribe, e-mail: beginners
Hello,
Is there a perl module available, or a regex method, that will prase an HTML
formatted file then remove ALL the HTML elements so you end up with just the
text content of the file?
Any help/suggestions appreciated.
Mike(mickalo)Blezien
On Sun, May 15, 2011 at 11:51:35AM -0700, John W. Krahn wrote:
>
> split ' ', $line;
>
> John
Smacking my forehead in chagrin. :-)
You're absolutely right John, I just didn't read far enough.
Thank you,
Mike
--
Satisfied user of Linux since 1997.
O< asc
romsplit /$RE/, $line;
as I get from the split against $_.
Thanks,
Mike
--
Satisfied user of Linux since 1997.
O< ascii ribbon campaign - stop html mail - www.asciiribbon.org
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h..
out.dat';
open my $OFH, '>', $outfile or die "Unable to open $outfile: $!, stopped ";
for my $k (sort keys %hash)
{ my ( $chr, $strand) = split /:/, $k;
printf $OFH "%s\t%s\t%s\t%s\n",
$chr, $hash{$k}{'start'}, $hash{$k}{'end&#x
On Fri, May 06, 2011 at 08:16:14AM +0100, Rob Dixon wrote:
> On 06/05/2011 01:21, Mike McClain wrote:
> >
> > Here's a simple example that illustrates the problem I've run into:
> As Uri says, initialising variables at the point of declaration is done
> at run time.
t found an explanation
for what I'm seeing and explanation is what I'm interested in though lacking
that a work-around would help. BTW, this is Perl 5.8.8.
Any hints will be appreciated.
Thanks,
Mike McClain
--
Satisfied user of Linux since 1997.
O< ascii ribbon campaign - stop html mai
On Fri, Apr 29, 2011 at 05:55:18PM -0400, Uri Guttman wrote:
> >>>>> "MM" == Mike McClain writes:
> zs> my $expr = $_[0];
> >>
> >> this is better:
> >> my ( $expr ) = @_ ;
>
> MM> Better how?
>
> * it does
On Thu, Apr 28, 2011 at 01:16:25PM -0400, Uri Guttman wrote:
> >>>>> "zs" == z sway writes:
>
> zs> sub grow {
> zs> my $expr = $_[0];
>
> this is better:
> my ( $expr ) = @_ ;
Better how?
Thanks,
Mike
--
Satisfied user of Li
is against data from one of your
earlier posts. I think it's what you're looking for except for
an extra tab that I don't see where is coming from.
Challenge for the student? :)
locus COG_categoryCOG_categoryCOGID Cluster_Information
SeSA_B0001 [T] Signal transduc
On 4/17/2011 12:22 PM, beginners-digest-h...@perl.org wrote:
Based on
http://support.microsoft.com/kb/320046
and
http://support.microsoft.com/kb/320047
Looks like it was park of win2k resource kit
John
Thanks to all who responded to my WMI module
query.
Mike
find the answer.
_
#!C:/perl/bin/perl
use strict;
use WMI;
open STDOUT, ">services.txt" or die "Cannot open services.txt: $!";
my $WMI = WMI->new("localhost");
$WMI->getServices();
close STDOUT;
#
pr
- Original Message -
From: "Chas. Owens"
To: "Mike Blezien"
Cc: "Perl List"
Sent: Wednesday, March 23, 2011 8:42 AM
Subject: Re: Better Regrex
On Wed, Mar 23, 2011 at 09:05, Mike Blezien wrote:
Hello,
I'm working on a simple regrex issue which
looking at it again and I think there's a better way to do this. Any suggested
would be appreciated.
Thx's
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
ect}\t$_->{carr}\t$_->{chan}\t$_->{dist}\n" , @sorted;
> > print @report ;
>
> This map will consume a lot of memory, better do it using a foreach loop.
In what way will the use of map here use any more memory than a foreach loop?
Thanks,
Mike
--
Satisfied user of Linux since
- Original Message -
From: "shawn wilson"
Cc: "Perl List"
Sent: Thursday, March 03, 2011 6:04 AM
Subject: Re: Extracting Data from PDF files
On Mar 3, 2011 6:35 AM, "Mike Blezien" wrote:
- Original Message - From: "shawn wilson"
C
- Original Message -
From: "shawn wilson"
Cc: "Perl List"
Sent: Thursday, March 03, 2011 5:22 AM
Subject: Re: Extracting Data from PDF files
On Mar 3, 2011 6:07 AM, "Mike Blezien" wrote:
Hello,
I posted a question earlier about creating a PDF fi
to extract specific data from the created PDF file.
Is there another way to do this with these modules or some other method ?
Thanks,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
end results we like to accomplish. Have the Perl script interupted
the PDF form and read the MIME data. Is this possible to do? If so how would the
script read the MIME data or the correct way to do this within the script?
Thanks again for any assistance.
Mike
- Original Message
- Original Message -
From: "Shawn H Corey"
To:
Sent: Tuesday, March 01, 2011 10:09 AM
Subject: Re: Creating PDF/FDF files
On 11-03-01 10:58 AM, Mike Blezien wrote:
Hello,
I'm working on a small project that will require us to parse data submitted
from an Adobe R
- Original Message -
From: "David Christensen"
To:
Sent: Tuesday, March 01, 2011 11:53 AM
Subject: Re: Creating PDF/FDF files
On 03/01/2011 07:58 AM, Mike Blezien wrote:
I'm working on a small project that will require us to parse data submitted
from an Adobe R
application for both PDF or FDF formats.
any suggestions or tips would be appreciated.
TIA,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
st($id,$message)
My question is do I need to use the require "./Entry.php" then call the
function similar to the way you'd call a regular sub routine or how is this
done?
thx's
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Original Message -
From: "Rob Dixon"
To:
Cc: "Mike Blezien"
Sent: Monday, February 14, 2011 10:29 PM
Subject: Re: Unable to determine error source
On 14/02/2011 16:10, Mike Blezien wrote:
I have a script that has been generating a strange error that I ca
file it generates we keep seeing the following error:
Invalid offset:
And that's it. Normally it will indicate the line#, date, detailed error, etc.,
like in the apache error_log file. but this is all it shows. This is a cron
script also.
Any ideas or help with this error would be much a
- Original Message -
From: "Jim Gibson"
To: "Perl List"
Sent: Wednesday, February 09, 2011 6:15 PM
Subject: Re: Randomizing a 24hr time period
On 2/9/11 Wed Feb 9, 2011 2:30 PM, "Mike Blezien"
scribbled:
- Original Message -
From: "
- Original Message -
From: "Jim Gibson"
To: "Perl List"
Sent: Wednesday, February 09, 2011 4:04 PM
Subject: Re: Randomizing a 24hr time period
On 2/9/11 Wed Feb 9, 2011 1:05 PM, "Mike Blezien"
scribbled:
- Original Message -
From: "P
- Original Message -
From: "Paul Johnson"
To: "Uri Guttman"
Cc: "Mike Blezien" ; "Perl List"
Sent: Wednesday, February 09, 2011 11:05 AM
Subject: Re: Randomizing a 24hr time period
On Wed, Feb 09, 2011 at 11:16:07AM -0500, Uri Guttman wr
- Original Message -
From: "Paul Johnson"
To: "Uri Guttman"
Cc: "Mike Blezien" ; "Perl List"
Sent: Wednesday, February 09, 2011 11:05 AM
Subject: Re: Randomizing a 24hr time period
On Wed, Feb 09, 2011 at 11:16:07AM -0500, Uri Guttman wr
- Original Message -
From: "Uri Guttman"
To: "Mike Blezien"
Cc: "Perl List" ; "Mike McClain"
Sent: Wednesday, February 09, 2011 9:35 AM
Subject: Re: Randomizing a 24hr time period
"MB" == Mike Blezien writes:
MB> What t
igured out though.
thx's
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Original Message -
From: Uri Guttman
To: Mike Blezien
Cc: Perl List ; Mike McClain
Uri,
yes that does make sense but that's what the customer wants :) There always
right aren't they !!
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Origin
rize" when they
appear.
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Original Message -
From: Mike McClain
To: Perl List
Sent: Monday, February 07, 2011 10:
On Mon, Feb 07, 2011 at 03:30:03PM -0600, Mike Blezien wrote:
> I'm trying to come up with a function to send out X number of message per
> day(24hr day) but we need to randomize the time factore each day. For
> Hope this makes sense, and someone may have done this before or ma
Thanks Jim, this helps allot. You've given me a good starting point. Appreciate
the help.
Mike
- Original Message -
From: Jim Gibson
To: Perl List
Sent: Monday, February 07, 2011 5:52 PM
Subject: Re: Randomizing a 24hr time period
On 2/7/11 Mon Feb 7, 2011 1:
out a per determined times but to fully randomize the time
factor for each 24 time period(ea day).
Hope this makes sense, and someone may have done this before or may have some
info the I can look into.
Thx's
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
[ $_ =~ /\d+/g ] } $data =~ /(\{.*?\})/g ];
> >
> >That's the type of Perl coding style I'm still trying to learn. Concise and
> >elegant. Beautiful!!!
Maybe it doesn't belong in production code but I must agree with Mr. Kumar,
'Concise, elegant, beautiful.
On 1/25/2011 6:07 PM, Rob and Shawn wrote:
Hey Mike
What you have written can be fixed by changing it to
for (my $num = 0; $num <= $#linkder; $num++) {
print STDERR "@{$linkder[$num]}\n";
}
or even
for (my $num = 0; $num <= $#{$links}; $num++) {
print STDERR
On 1/23/2011 5:21 PM, beginners-digest-h...@perl.org wrote:
>That module hasn't been updated since 2001. You'll have a >much easier
time using WWW::Mechanize and many more people will be in>a position to
help you.
>Peter Scott
>
Thank you for the reply.
I appreciate it.
Mike Flannigan
;d like to know how to dereference this script.
Mike Flannigan
#
#
#
#!/usr/local/bin/perl
#
use strict;
use warnings;
use WWW::SimpleRobot;
my $robot = WWW::SimpleRobot->new(
URLS=> [ 'http://www.portofhouston.com/' ],
FOLLOW_REGEX=> "^http://ww
On 15 December 2010 16:21, Jim Gibson wrote:
> On 12/15/10 Wed Dec 15, 2010 8:05 AM, "Mike Martin"
> scribbled:
>
>> Hi
>>
>> I am trying pass a perl one-liner to at intact eg:
>>
>> echo 'perl -mLinux::DVB::DVBT -e 'my
>> $dv
Hi
I am trying pass a perl one-liner to at intact eg:
echo 'perl -mLinux::DVB::DVBT -e 'my
$dvb=Linux::DVB::DVBT->new(O_NONBLOCK,'O_RDONLY');$dvb->set_frontend('frequency'
=> '497167000','tsid' => '4222');my $file="/storage/burn/testol";my
$ref={pmt=>'10'};$dvb->set_demux(101,102);$dvb->record($f
On 19 November 2010 09:13, Shlomi Fish wrote:
> On Thursday 18 November 2010 16:32:08 Mike Martin wrote:
>> Has anyone got any approaches that enable cgi scripts to access the
>> host filesystem (readonly)
>>
>
> There shouldn't be any problem for a CGI script to
Has anyone got any approaches that enable cgi scripts to access the
host filesystem (readonly)
I am working on a doc viewer app (intended for release as part of a
suite), but I am hitting the "permission denied" issue.
This applies to ls, opendir and find.
any ideas appreciated
--
To unsubscri
On Sat, Nov 13, 2010 at 05:43:21AM -0500, Uri Guttman wrote:
> >>>>> "MM" == Mike McClain writes:
> MM> Could someone tell me why there is a comma printed after the newline?
> because you put it there. the \n is input to the map, not the print!
> map
mike@/deb40a:~/perl> perl -v
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
mike@/deb40a:~/perl> perl -we '
@list=qw/Perl is cool./;print( "list=\t", map { "$_," } @list, "\n");
'
list= Perl,is,cool.,
,mike@/deb40a:~/perl>
Could s
ran it again. Noting that the benchmark results changed
markedly I ran it several times like so:
mike@/deb40a:~/perl> { for i in $(seq 1 5);
do echo run $i; ./split_str; done } >> split_str_times.txt
Thinking the number of inerations of the benchmark loop might be
low enough to a
M -0700, John W. Krahn wrote:
> Mike McClain wrote:
> >use warnings; # duplicates -w
>
> It does not duplicate -w, in fact -w has no effect after this point in
> your program. See:
> perldoc perllexwarn
Since the first sentence in `perldoc perllexwarn` is:
'The "
If that fails:
#!/usr/bin/perl -Tw
# ascii Thu Dec 11 2008 (c) Mike McClain
# print ascii chart, oct, hex, dec ala, /mc/docs/ascii.gz
# re: man ascii
use strict; # this can be removed when all bugs are fixed
use warnings; # duplicates -w
use integer;
$|++; # unbuffer
- Original Message -
From: "Alan Haggai Alavi"
To: ; "Mike Blezien"
Sent: Wednesday, October 27, 2010 8:13 PM
Subject: Re: Directory Size
On Thursday 28 Oct 2010 06:30:01 Mike Blezien wrote:
Hello,
I've been out of the programming game for a while and re
- Original Message -
From: "Owen"
To: "Mike Blezien"
Cc: "Perl List"
Sent: Wednesday, October 27, 2010 8:17 PM
Subject: Re: Directory Size
Hello,
I've been out of the programming game for a while and recently got
back into
some small programmin
MB's, the size of the files
in a particular directory folder.
Thanks,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
--
To unsubscribe, e-mail: beginners-unsubscr...@pe
On Wed, Oct 13, 2010 at 12:34:19PM -0700, C.DeRykus wrote:
> On Oct 13, 9:40?am, mike.j...@nethere.com (Mike McClain) wrote:
> > > On Wednesday 13 October 2010 06:39:03 Mike McClain wrote:
> > > > Why do @arrays and @seconds not have the same number of elements
On Tue, Oct 12, 2010 at 11:48:03PM -0700, John W. Krahn wrote:
> Shlomi Fish wrote:
> >
> >On Wednesday 13 October 2010 06:39:03 Mike McClain wrote:
> >> I've looked at this for a few days but still can't see 'why'
> >>I get what I do.
>
On Tue, Oct 12, 2010 at 11:25:18PM -0700, John W. Krahn wrote:
> Mike McClain wrote:
> > I've looked at this for a few days but still can't see 'why'
> >I get what I do.
> >Why do @arrays and @seconds not have the same number of elements?
> >
On Wed, Oct 13, 2010 at 08:33:57AM +0200, Shlomi Fish wrote:
> On Wednesday 13 October 2010 06:39:03 Mike McClain wrote:
> > Why do @arrays and @seconds not have the same number of elements?
> > my @arrays =
> > map
> > { @{ $
I've looked at this for a few days but still can't see 'why'
I get what I do.
Why do @arrays and @seconds not have the same number of elements?
Thanks,
Mike
{ my %HoAoA = (
a => [ [ qw / aa1 aa2 / ], [ qw / ab1 ab2 / ] ],
b => [ [ qw / b
On 5 August 2010 03:39, John W. Krahn wrote:
> Mike Martin wrote:
>>
>> Hi
>
> Hello,
>
>> I have the following code
>> my $type='val';
>> my $type_g;
>> foreach my $key (keys %options){
>> my $chk=$options{$key}->[3];
>>
- Show quoted text -
On 5 August 2010 04:58, Chas. Owens wrote:
> On Wed, Aug 4, 2010 at 11:36, Mike Martin wrote:
> snip
>> This fails but if I replace
>> $type_g=$options{$key}->[4] if $chk=~/$type/
>>
>> with either
>> $type_g=$options{$key}->[4]
Hi
I have the following code
my $type='val';
my $type_g;
foreach my $key (keys %options){
my $chk=$options{$key}->[3];
$type_g=$options{$key}->[4] if $chk=~/$type/;
#$type_g=$options{$key}->[4] if $type=~/$chk/;
}
print "\n",$type,"\t",$type_g,"\n";
This fails but if I replace
$type_g=$options{$ke
Is this possible?
I am trying to populate a hash with keys as variable name and value as
variable value eg:
my %hash;
foreach my $w
($filename,$file_start,$file_time,$video_track,$audio_track,$quality,$sync){
my $hash{$key}= $w;
}
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For
Hi
I am looking at creating animated gifs using this in the man page as
a starting point
my $gifdata = $image->gifanimbegin;
$gifdata .= $image->gifanimadd;# first frame
for (1..100) {
# make a frame of right size
my $frame = GD::
Hi Jim,
After futher digging we found the problem it had to do with a DateTime string.
Thanks for the help.
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Original Message
ssage ?
Thanks,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
that what one thinks does matter here if they're willing to
push their beliefs in a judgmental manner.
When the experts act like they 'own' the beginners list it appears to me
that the beginners suffer.
Mike McClain
--
Satisfied user of Linux since 1997.
O< ascii ribbon cam
On Mon, Mar 08, 2010 at 08:00:10AM -0800, Ryan Chan wrote:
> my ($a, $b, $c, $d, $e) = "test";
>
> How I can assign "test" to all the list items? e.g. $a to $e
>
my ($a, $b, $c, $d, $e);
$a=$b=$c=$d=$e="test";
Mike
--
Satisfied user of Linux since
of creating a file. I personally find it very easy to
experiment from the shell and do so often. I only use strict and warnings
on the CLI if something doesn't work and the reason is not immediately
evident. His second objection is certainly true but I've never seen a
requirement here that &#
Hello,
we are in the process of setting up an API for Paypal's Masspay and was looking
at the module:
Business::PayPal::API::MassPay
Has anyone had any experience using this module? Any bugs in it?
Thanks,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder
- Original Message -
From: "Dermot"
To: "Perl List"
Sent: Wednesday, February 10, 2010 10:14 AM
Subject: Re: LWP error returned
On 10 February 2010 15:47, Mike Blezien wrote:
Hello,
I've run into an error while using the LWP module which I haven'
ion/x-www-form-urlencoded");
#add creadentials to request
$req->authorization_basic($USERNAME,$PASSWORD);
my $res = $ua->request($req);
my $content = $res->content();
---
The error/content is returns is "Len
Yes this seem quiet easy to use also. I must have missed this one while
browsing through CPAN's site.
thanks,
Mike
- Original Message -
From: ANJAN PURKAYASTHA
To: Mike Blezien
Cc: rc...@pcug.org.au ; Perl List
Sent: Monday, January 25, 2010 7:59 PM
Subject: Re: Wo
- Original Message -
From: "Owen"
To: "Mike Blezien"
Cc: "Perl List"
Sent: Monday, January 25, 2010 6:14 PM
Subject: Re: Working with Excel spreadsheets
Hello,
we need to extract data from uploaded Excel spreadsheets, XLS binary
files. W
Hello,
we need to extract data from uploaded Excel spreadsheets, XLS binary files. What
is the best perl module to accomplish this with ??
Thanks,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
}
for (keys %{$KK}) {
print $xx->center($xx->h2("Key: ",$_,"\n"),
$xx->h2("value from reference: ",${$KK}{$_},"\n"));
}
print $xx->end_html;
As you can see if you run these two scripts, the dereferencing step
didn't give me back my hash %KK. I used the same synax to dereference
$KK in both programs, but it didn't work for the passed one. Can
anybody help? Thanks in advance.
Mike
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
- Original Message -
From: "Jeff Peng"
To: "Mike Blezien"
Cc: "Perl List"
Sent: Sunday, January 17, 2010 8:05 PM
Subject: Re: Basic Domain and IP Info
在 2010-01-17日的 11:16 -0600，Mike Blezien写道：
Hello,
I've been looking for some basic domain/IP i
ss:
Name Servers for the domain name
IPs associated with the domain
What/How many sites are using the IP
Reverse IP Lookup
HTTP Status Code
Are there any Perl modules, toolkits, available that do these type of task?
any help or suggestion much appreciated,
Mike(micka
Ok, thanks I think I found what I was looking for,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- Original Message -
From: "Shawn H Corey"
To: "Mike Blez
Hello,
I have sub routine in a module that creates a MD5 hash:
&make_md5(__FILE__);
what exactly does this "__FILE__" represent, the current filename ?
thanks for any help,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Inter
Hi Shlomi,
- Original Message -
From: "Shlomi Fish"
To: ; "Mike Blezien"
Sent: Sunday, December 27, 2009 7:38 AM
Subject: Re: Convert PHP functions to Perl
On Sunday 27 Dec 2009 15:12:24 Mike Blezien wrote:
Hello,
Hi Mike!
I'm working on converting
microtime()
What is the Perl equivalent to these functions ?
thx's and happy holidays,
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
http://www.thunder-rain.com/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- Original Message -
From: "Jenda Krynicky"
To: "Perl List"
Sent: Tuesday, December 22, 2009 6:44 PM
Subject: Re: XML::Simple question
From: "Mike Blezien"
Hello,
were using the XML/Simple module to process a XML response using the code
- Original Message -
From: "Robert Wohlfarth"
To: "Perl List"
Sent: Tuesday, December 22, 2009 5:47 PM
Subject: Re: XML::Simple question
On Tue, Dec 22, 2009 at 9:54 AM, Mike Blezien wrote:
were using the XML/Simple module to process a XML response using the
$xmlresponse = $res->content();
my $simple = new XML::Simple(KeyAttr=>[]);
# read XML file
my $xmldata = $simple->XMLin("$xmlresponse");
# can't read the response in this manner
===
Thanks and happy holidays,
Mike(mickalo)Blez
ceive the
notification.
Any help or suggestion would be appreciated.
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
http://www.thunder-rain.com/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
--
To unsubscribe, e-mail: begi
Shawn H Corey wrote:
Use the hex notation:
perl -i -ple 'tr/\xA0/\x20/'
Thank you. Much appreciated. I do like
that much better.
Someday I'll know hexidecimal better. Right
now it's got a little magic for me.
Mike
--
To unsubscribe, e-mail: beginners-unsu
. It does not have to be a reg exp.
Anybody know why this doesn't work?
tr/\160/\32/d;
Oddly it replaces 'p' (character code 80) with
character code 26???
I get the digest version, so may not respond
right away.
Mike Flannigan
--
To unsubscribe, e-mail: beginners-unsubscr...@
On Wed, Sep 23, 2009 at 08:08:47PM -0400, Chas. Owens wrote:
> On Wed, Sep 23, 2009 at 19:16, Mike McClain wrote:
> > On Tue, Sep 22, 2009 at 05:09:26AM -0400, Shawn H Corey wrote:
> >> Roman Makurin wrote:
> > Does anyone know of a case where one of these expressions woul
clearly preferable to f but the winner has to be g.
=()= is much more legible than @{[]}, less prone to mistyping.
Thank you Paul Johnson for bringing this to my attention.
The original question was what's 'best'.
Does anyone know of a case where one of these expressions would fail?
e people like me who are
trying to get a handle on Perl, this list will stay active.
One of the best math teachers I had in high school was a birch and
hadn't changed since she taught my ma. Mom and I both learned math
from her though.
> Ian
Mike
--
Satisfied user of Linux since 1997.
O&
d at the module info posted on Cpan but haven't
grasp how this works yet. Was hoping someone has used the module and maybe share
an example of how to post the request.
Any help would be appreciated.
TIA,
Mike(mickalo)Blezien
===
Thunder Rain Internet Publ
On Fri, Mar 27, 2009 at 11:20:27AM +, Dermot wrote:
> Hi All,
> $bits |= 1<< ($countryid - $currentno); ###
> What
> is this left shift doing? Is that a or complement?
> }
> else
> {
> $bits &= 15-
On Sat, Jan 10, 2009 at 09:56:24PM -0800, Randal L. Schwartz wrote:
>
> I prefer the "do" form, myself.
Is there a functional reason for your preference
or is it just a matter of taste?
Mike
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional
On Sat, Jan 10, 2009 at 03:26:33PM +0100, Jenda Krynicky wrote:
> The Class::Name->method(...) is a class method call. Perl will find
> the method in the clas hierarchy and call the method and pass the
> 'Class::Name' as the first parameter.
>
Thank you Jenda
At least thanks to your help I know what's going on
even if I don't yet understand it. It's been long enough since I picked
up a new language to have forgotten this particular frustration.
Cest la vie.
> seek DATA, 0, 0;
> my $data = join '', ;
This is intere
y file md5_hex).
Would you mind explaining further or pointing me to further reading
that might straighten out this feeble old mind?
> The most important skill a programmer can have is the ability to read.
I can read it's just that it don't always stick the first two or
t part didn't make it into the part you saw.
Oops, my bad.
>
> >binmode(INFILE);
> >my $data = ;
> >close INFILE;
> >if ( $myDebug ) # this gives wrong answers
> >{ $digest = Digest::MD5->md5_hex($data); }
> >else
> >
e.
>
> Rob
In what way is it better?
Thanks,
Mike
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
econd Edition By Simon Cozens
Perl for System Administration By David N. Blank-Edelman
I'm a primarily hardware tech and not programming for money and I guess
my question might ought to be which has the most meat in it?
Suggestions are invited particularily those accompanied by reasons.
Thanks,
Mi
sanket vaidya wrote:
>
> Hi all,
>
> I want to do something like this.
>
> Invoke a cmd (using system command) print a welcome message & execute the
> remaining part of script.
>
> Now what I want is
> 1. cmd should only be invoked with welcome message if the script is
> executed first tim
201 - 300 of 774 matches
Mail list logo
