On 2/17/2016 03:15, Vincent Lequertier wrote:
I'd get rid of the '$'s in front of '$group1' etc to avoid the '$ip =~
s/^\$//;' below.
How can I have the following output?
,"10.100.29.0/24"
,10.100.27.52
,10.100.27.53
,10.100.27.54
,10.100.27.55
,10.100.27.56
,10.100.27.57
My version:
my
On 3/8/2014 12:05 AM, Bill McCormick wrote:
I have the following string I want to extract from:
my $str = "foo (3 bar): baz";
and I want to to extract to end up with
$p1 = "foo";
$p2 = 3;
$p3 = "baz";
the complication is that the \s(\d\s.+) is optional,
On 3/8/2014 12:41 AM, shawn wilson wrote:
my $str = "foo (3 bar): baz";
my $test = "foo (3 bar): baz";
my ($p1, $p2, $p3) = $test =~ /([^]+) \(([0-9]+).*\) ([a-z]+)/;
print "p1=[$p1] p2=[$p2] p3=[$p3]\n";
Use of uninitialized value $p1 in concatenation (.) or string at
./lock_report.pl line 1
I have the following string I want to extract from:
my $str = "foo (3 bar): baz";
and I want to to extract to end up with
$p1 = "foo";
$p2 = 3;
$p3 = "baz";
the complication is that the \s(\d\s.+) is optional, so in then $p2 may
not be set.
getting close was
my ($p1, $p3) = $str =~ /^(.+):
On 3/1/2014 6:19 AM, Paul Johnson wrote:
On Fri, Feb 28, 2014 at 11:13:05PM -0600, Bill McCormick wrote:
Can somebody help me understand this? Given this loop, and the
logged output following ...
my $found;
for( @$products ) {;
$found = $$_ =~ m|$project|;
I think you might have meant
Can somebody help me understand this? Given this loop, and the logged
output following ...
my $found;
for( @$products ) {;
$found = $$_ =~ m|$project|;
$dump = Data::Dumper->Dump([$_, $project, $$_, $found]);
$logger->trace(qq(dump=$dump));
}
I can't explain why $found is not true on the
On 2/25/2014 7:07 PM, Jim Gibson wrote:
On Feb 25, 2014, at 2:30 PM, Bill McCormick wrote:
What would be the perl'ish way using map or some other sugar to check if a list
of values meet some criteria? Instead of doing something like
my @issues = qq(123,456,a45);
my $max = 999;
for (@i
On 2/25/2014 4:36 PM, Bill McCormick wrote:
On 2/25/2014 4:30 PM, Bill McCormick wrote:
What would be the perl'ish way using map or some other sugar to check if
a list of values meet some criteria? Instead of doing something like
my @issues = qq(123,456,a45);
my $max = 999;
for (@i
On 2/25/2014 4:30 PM, Bill McCormick wrote:
What would be the perl'ish way using map or some other sugar to check if
a list of values meet some criteria? Instead of doing something like
my @issues = qq(123,456,a45);
my $max = 999;
for (@issues) {
die if $_ < 0 or $_ > $max;
}
What would be the perl'ish way using map or some other sugar to check if
a list of values meet some criteria? Instead of doing something like
my @issues = qq(123,456,a45);
my $max = 999;
for (@issues) {
die if $_ < 0 or $_ > $max;
}
I want to check if each list item is numeric and > 0 but le
On 2/14/2014 3:39 AM, kimi ge(巍俊葛) wrote:
Hi Parys,
Your statement "$joinedDNA =~ s/\R//g;" will remove new line in the string.
You may remove this statement.
Yea, I don't see that you need that either.
maybe you were just trying to get a new line at then end?
$joinedDNA =~ s/N+|$/\n/g;
Is this your homework?
On 2/14/2014 1:48 AM, Parysatis Sachs wrote:
Hi everyone!
I'm new to this mailing list as well as to programming and Perl in
general. So there is a chance I might ask relatively stupid questions
with very obvious answers... Please bear with me!
So, here it goes:
I have
I have a Perl module that calls a function from in a Swig generated
module, which in turn calls a function in a shared library. It's been a
while since I put it all together and made it work, so I'm kind of hazy
on the technical details - and since it mostly works I never need to
look at it.
On 2/9/2014 10:48 AM, Bill McCormick wrote:
Trying to map the array list into a hash, but loose the double quotes
surrounding the key's value. This is close, but it's not removing the
quotes.
Solutions?
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my @array = qw(foo1="b
On 2/9/2014 3:58 PM, Shawn H Corey wrote:
On Sun, 09 Feb 2014 10:48:46 -0600
Bill McCormick wrote:
Trying to map the array list into a hash, but loose the double quotes
surrounding the key's value.
You can convert a list to a hash directly:
my %hash = qw( foo1 bar1 foo2 bar2 );
Trying to map the array list into a hash, but loose the double quotes
surrounding the key's value. This is close, but it's not removing the
quotes.
Solutions?
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my @array = qw(foo1="bar1" foo2="bar2");
print "Array:\n";
print Dumper(@array);
pr
Scope?
On Wednesday, June 26, 2013, lee wrote:
> Hi,
>
> the following example doesn't compile:
>
>
> use strict;
> use warnings;
>
>
> sub test {
> print $counter . "\n";
> }
>
>
> my $counter = 0;
> while($counter < 5) {
> test();
> $counter++;
> }
>
>
> It says "Global symbol "$cou
I think the rest after the 'if' for the last is wrong. either do this:
last if ($counter > 2);
or
if ( $counter > 2) {
print 'if : ' . $counter . "\n"; #could do print "if : $counter\n" as
well
last;
}
On Mon, Jun 17, 2013 at 8:56 AM, lee wrote:
> Hi,
>
> trying to figure out what
Rajeev and Angela, I apologize for being a member of this group.
I'll just quit now so I never have to say that again...
On Apr 7, 2013 12:01 AM, wrote:
> What a wondeful piece of spam, thank you sir, may I have another?
On Mar 29, 2013, at 9:02 AM, John SJ Anderson wrote:
> Hi, List Mom h
On Feb 22, 2013, at 3:59 AM, rjc wrote:
> Hi Bill,
>
> This is a kind request directed to you but also to everyone else to
> consider starting a new thread with a new message sent to the mailing
> list rather than replying to a previous email and changing the Subject:
> line.
whatever
they want, but restricts their right to resell it. or do I have to make one of
those up?
I can't even get through the gutenberg.org license without wanting to bang my
head on a wall. Will a simple copyright do the trick?
How do others deal with this? Attorneys? (I hope there is a si
On Feb 12, 2013, at 11:01 AM, Rajeev Prasad wrote:
> what is the advice just for obfuscating code? platform is solaris.
I played with "Acme::Bleach"
http://search.cpan.org/~dconway/Acme-Bleach-1.150/lib/Acme/Bleach.pm
It takes a different approach to obfuscating code, but it sort of works.
When converting DMYHMS to Epoch Seconds and back I get cheated out of a day.
Why?
Bill
--
#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
my ($time, $month, $day, $year, $seconds, $minutes, $hours, $wday, $yday,
$isdst);
my $start_date = '11/30/2012';
print "
ly be good for web apps, but it might be handy for
learning and testing too.
Bill
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Check out this web app:
http://jsfiddle.net/
(Google "jsfiddle.net example" for examples of use)
It would be nice to have something like that for fiddling with perl.
I haven't really thought it through, but it might not take much to create
something simple for personal
all know and I'll try and
help you track down a solution to the problem.
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Jan 9, 2013, at 11:26 AM, Andy Bach wrote:
> On Wed, Jan 9, 2013 at 10:11 AM, Bill Stephenson wrote:
>
>> date=11/01/2003
>>
>> I want to trap bad data sent to time::local in a loop where I use these
>> lines:
>>
>>my ($date_month, $date_d
f "$test_date" contains bad data
:
Month '-1' out of range 0..11 at /Test.pm line 998.
How can I evaluate the call to timelocal so I can decide what to do if a date
is bad or missing?
Thanks for any help with this...
Bill Stephenson
--
To unsubscribe, e-mail: b
On Sep 19, 2012, at 8:38 PM, Bill Stephenson wrote:
> I want my scripts to maintain state when a user's session expires.
>
> When that happens I send them to a login page and here's what I am working on
> in the module that does the authentication:
Well, after a bit mor
it to a list of valid script names and if it doesn't pass the test I'll send
the user an error message.
Should that be good? Or do I need to ditch the $ENV{'SCRIPT_NAME'}) approach
all together?
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
ot;Atomic level" and it will not interrupt
your app.
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Aug 29, 2012, at 11:59 AM, John SJ Anderson wrote:
> On Wednesday, August 29, 2012 at 9:46 AM, Ashwin Rao T wrote:
>> 1)Check if IP address is in the range 172.125.1.0 and 172.125.25.0 using only
>> return functions & regular expressions in Perl.
>> 2)Check if the name is valid (has atleast
subscriber there it'd be nice to see the solution
posted there, no matter the source.
Bill
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
cters in
those files should get you to where you can split the strings and store the
contents in your arrays, so keep working on the formatting and run it through
the above until you get it working.
I hope this helps..
Bill
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For a
something like this should
work:
system 'C:\Documents and Settings\bill>sc stop nexus-webapp';
system 'C:\Documents and Settings\ bill >sc start nexus-webapp';
system 'C:\Documents and Settings\ bill >sc query nexus-webapp';
Does that look right? Or
On Aug 13, 2012, at 2:55 PM, Perforin wrote:
> On 08/13/2012 11:57 AM, Shlomi Fish wrote:
>> Hello Perforin,
>>
>> On Mon, 13 Aug 2012 08:18:13 +0200
>> Perforin wrote:
>>
>>> On 08/13/2012 12:45 AM, Owen wrote:
>>>> On Fri,
o
draw a track and I've done that with GD too, but I suppose it can be done with
CSS too, so demoing both approaches would be nice.
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
rry pi is pretty darn cool. It's really a perfect sandbox
to start playing in with perl. In fact, it may be perfect for developing perl
since you can change out the entire system, configured for a single project,
with a $6 SD card.
I'm having a great time playing and learning with mine
gt;>
>> Hi Jack,
>
> Sorry but how is this related to perl? This is a linux/unix question that
> most on this list might be able to answer but that does not mean it belongs
> on this list.
>
> Rob.
Well, this can be done in perl, so if the OP wants a perl solution we can offer
help with that.
Bill
(sorry about sending this to you personally Rob, I clicked the wrong "reply"
button :(
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
general.
There is a lot to be said for keeping things simple. If you're one guy coding
perl, js, css, and html for an app, you've already got too much to do.
Bill
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
one that you can be most productive
with.
I thought I'd mention that you always have that option too.
Kindest Regards,
Bill Stephenson
On Jul 19, 2012, at 8:38 PM, Chris Stinemetz wrote:
> Hello List,
>
> What is the best Perl MVC framework for someone to learn that has minimal
Maybe this is what you need?
#!/usr/bin/perl
use warnings;
use strict;
my @array;
while ( my $line = ) {
chomp $line;
push (@array = split(/\s+/, $line,-1));
}
for my $item ( @array ) {
print $item,"\n";
}
Kindest Regards,
Bill Stephenson
On Jun 5, 2012, at 4:15 PM, Chris
the simpler version that Dancer
implements. I learned a lot by going over both of their tutorials. I also
played around with HTTP::Server::Simple to get a feel for how that works and
how I might use it in my own approach.
I suggest you do the same. Then you can decide if you feel like investing
Thanks Shawn!
The "values %{$href->{$_[0]}}" code is pretty ugly but I get it now. And it
make sense to break out of the loop as soon as you don't pass the test.
Kindest Regards,
Bill Stephenson
On Jun 4, 2012, at 12:49 PM, Shawn H Corey wrote:
> On 12-06-04 12:3
On Jun 4, 2012, at 11:30 AM, Chris Stinemetz wrote:
> I have a subroutine that I want to "return 1" only if the value of
> %{$href->{$_[0]}} is equal to 'ND' for the whole 24 occurences.
>
> Any suggestions is greatly appreciated.
>
Chris, I don't know how to read your hash directly (hash of ha
) there might be things he can do
that don't require rewriting a lot of code, or spending a lot of time learning
a lot of new ways of doing things.
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
'd require something like a dispatcher that sits between your
scripts and the perls you want to use.
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
I'd like it
to search through.
But I don't know how to do that, I've tried a few different things, like,
open(newFh, "data.txt") or die "couldn't open data.txt : $!";
my $stream = Boulder::Stream->newFh;
But I get this error:
Name &q
ng a Mac)
It's not the answer they're looking for, but it's a simple and easy solution
that's also pretty darn fast.
And you can always write a perl script that will do that same thing too ;)
Kindest Regards,
Bill Stephenson
On Jun 2, 2012, at 2:11 PM, Chris Nehren wrote:
Okay, I get it... Sorry...
Kindest Regards,
Bill Stephenson
On Jun 2, 2012, at 2:01 PM, Shawn H Corey wrote:
>>> #!/usr/bin/env perl`
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Maybe I don't understand what you mean, but I'm using perlbrew on my Mac and
running CGI scripts with it.
Kindest Regards,
Bill Stephenson
On Jun 2, 2012, at 1:53 PM, Shawn H Corey wrote:
> On my machine, perl is at /usr/bin/perl so it doesn't get clobbered. (And `l
ted about what I can do with these little devices. There are
lot's of potential gizmos to plug into them, cameras, GPS, compass, all kinds
of stuff, and we should be able to control them with perl. I know we can do
that now, but the RPi really lowers the bar for entry...
Kindest Regards,
Bil
RPi gives the perl community the opportunity to grow with the markets these
devices will create and serve, which I think will be huge. I lack the
credentials to lead the Perl community there, but I've been feeling the need to
point out what's going on there and urge others to get involve
ouple block away.
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
27;t wait to get one!
Kindest Regards,
Bill
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
waste time writing the script for you for free? Hire a
programmer!
Hey Jenda, long time no see/hear.
Lighten up on the poor guy - we don't even know what it's for. :)
Have a great Holiday (whatever your preference), to Jenda and all.
Bill
--
To unsubscribe, e-mail: beginners-unsu
yntax error at import_track.pl line 11, near ") {"
Syntax error at import_track.pl line 14, near "}"
This appears to me to be related to the "{" and "}" but I am a beginner!
I would appreciate help on this.
Thanks
Bill Casey
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
f I can find the time next week, I will finish the installation next
week, though success is not guaranteed { :-( x 2 }
Regards,
BiLL
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
.
I am using Perl 5.8.4 on Solaris.
I know I could probably fix this by tweaking the SQL query but it would
still be nice to know what exactly is going on here.
Thanks in advance for any help you can give.
Regards,
Bill Harpley
dy can think of a neater trick
I would be delighted to know !
Regards,
BiLL
On Jan 26, 1:36 pm, wpflu...@yahoo.com (Bill) wrote:
> I'm not a beginner with perl but all of my previous stuff has been
> simple and I've never really used modules, until now. I'm working on
> a program that has to receive a mime encoded email and pull info out
> of i
Can you explain why this works but my orginal effort did not?
Many thanks,
Bill Harpley
-Original Message-
From: Rob Dixon [mailto:rob.di...@gmx.com]
Sent: Monday, January 26, 2009 7:19 PM
To: Perl Beginners
Cc: Bill Harpley
Subject: Re: Simple regex problem has me baffled
Bill Harple
each record into a single long
line before trying to perform regex match? Is there an easy way to do
this?
Regards,
Bill Harpley
-Original Message-
From: Gunnar Hjalmarsson [mailto:nore...@gunnar.cc]
Sent: Monday, January 26, 2009 5:22 PM
To: beginners@perl.org
Subject: Re: Simple re
it:]] but to no avail
So I remain stuck at square one !!
Regards,
Bill
-Original Message-
From: John W. Krahn [mailto:jwkr...@shaw.ca]
Sent: Monday, January 26, 2009 5:20 PM
To: Perl Beginners
Subject: Re: Simple regex problem has me baffled
Bill Harpley wrote:
> Hello,
He
I'm not a beginner with perl but all of my previous stuff has been
simple and I've never really used modules, until now. I'm working on
a program that has to receive a mime encoded email and pull info out
of it. I'm using Email::Simple and Email:MIME and I can read the
emails fine but I'm having
string at ./magic.pl
line 19, line 1044.
8252d
Use of uninitialized value in concatenation (.) or string at ./magic.pl
line 19, line 1044.
8252d
Use of uninitialized value in concatenation (.) or string at ./magic.pl
line 19, line 1044.
What is especially puzzling is that I have seen notation s
le
REQ/RES pair in the file with a given ID. So the RequestID should not
appear more than twice in the
The output list. Yet there are many instances where the RequestID
appears more than twice.
Any help you guys can provide would be much appreciated. The Perl
version is 5.8.4. on solaris 10
Regards,
Bill Harpley
Rob Dixon wrote:
If you think the one-liner is non-trivial then all the more reason that you
should use a proper script. It is a bad idea to use any code unless you
understand why and how it works.
The script isn't trivial (to me) either. Incidentally the same can be done in
sed one-liner.
se
Thomas Bätzler wrote:
perl -i -ple '$_ = "cc\n$_" if $p =~ m/aa/ && m/bb/; $p=$_'
Thanks. looks non-trivial for me. Anyway I will copy this idiom into my cheat
sheet.
Thank Gunnar for suggestion too. However I prefer one-liner.
regard,
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additi
Hello,
Sorry this must be a faq but I cannot find any answer in google.
Suppose I want to change 2 lines to 3 line in files as follow using perl -p -i
-e command
aa
bb
aa
cc
bb
this doesn't work
perl -p -i -e "s/aa\nbb/aa\ncc\nbb/g;" foo.txt
what is the correct command (I use linux).
Thanks
Chase,
Thanks for the quick reply. I am not familiar with how to go about doing this.
Do i need a module to do this? could you point me to some documentation or
something that i can look at?
Thanks - Bill
- Original Message
From: Chas Owens <[EMAIL PROTECTED]>
To: Bill &
Hi all. I have bunch of CSV files that have the same data. This data is sent
to clients. Then the data is returned back with the Active/Remove field
filled. This field is only filled by 1 client. All the files are returned
back. Once they are returned back I need a script that will go throu
On 4/2/07, Nigel Peck <[EMAIL PROTECTED]> wrote:
My question is, is this the best way to go about having modules in
development?
Yes and no.
Read more about this at:
http://www.perlmonks.org/index.pl?node_id=238691
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org
oad
them.
I would suggest you look toward WWW::Mechanize
http://search.cpan.org/search?query=WWW::Mechanize&mode=all
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&search=0x2A46CF06&fingerprint=on
--
To unsubscri
On 3/13/07, Bill Jones <[EMAIL PROTECTED]> wrote:
000005000
002
000 \0 \n
002
Erm, make that:
od -b xxx is -
000 000 012
002
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&
On 3/13/07, Rob Dixon <[EMAIL PROTECTED]> wrote:
Unless I'm in a different parallel universe this doesn't make sense at all!
What tests have you done Bill?
How is ^@ (a null or zero byte) equal to "\n"?
How is control-J two bytes? I thought it was pretty muc
Gr check syntax check syntax ; lol ...
On 3/1/07, Bill Jones <[EMAIL PROTECTED]> wrote:
# A long winded approach might use
# (modified from FAQ 8) -
use IPC::Open3;
$_ = "I am the Alpha and the Omega (UT99 Player Xan)\n";
open(o, "cat $_");
print;
pri
om-line? Be careful of your I/O -- things that seem to make
program (logical) order sense may not produce expected results...
One possible answer to your question -
# A long winded approach might use
# (modified from FAQ 8) -
use IPC::Open3;
$_ = "I am the Alpha and the Omega
erl hacker ...I think I am 1st?
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&search=0x2A46CF06&fingerprint=on
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On 2/14/07, Rob Coops <[EMAIL PROTECTED]> wrote:
It might be a little slow as the few people that use perl seem to be able to
need a lot of help on how t use it causing a huge load on the servers :-)
Ouch! lol, I haven't been on there in months =)
--
WC (Bill) Jones -- h
work -- I am using CygWin.
Any ideas would be welcome :-)
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&search=0x2A46CF06&fingerprint=on
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EM
ion on the web to do this.
http://www-128.ibm.com/developerworks/webservices/library/ws-soapmap1/
???
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&search=0x2A46CF06&fingerprint=on
--
To unsubscribe, e-mail: [EMAIL
give a LOT of output?
perl -V
???
So, still, when you speak of Perl Core you are still talking about
many needed modules. Additionally, when you speak of CGI.pm there are
still other modules which make sense.
What are you trying to accomplish?
--
WC (Bill) Jones -- http://youve-reached-th
an someone point me to a different mailer that does have this capability?
Maybe you can integrate this:
http://search.cpan.org/src/GMPASSOS/Mail-SendEasy-1.2/lib/Mail/SendEasy/SMTP.pm
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?
On 1/24/07, Dukelow, Don <[EMAIL PROTECTED]> wrote:
by "ssh". Can someone regimen a Perl "ssh" module that works with
Net::Telnet? I see there are several out there.
I am partial to this one:
http://search.cpan.org/~dbrobins/Net-SSH-Perl-1.30/
--
WC (Bill) Jon
On 1/20/07, Michael Alipio <[EMAIL PROTECTED]> wrote:
my $string = 'vd=root,status=';
'vd=root;status='
$string =~ s[\,][\;]g;
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&search=0x2A46CF06&
$found{$line} = ["1",$match];
}
}
@modules = sort count keys(%found);
print <perl modules
HTML
$count=0;
foreach $mod(@modules){
chomp $mod;
$count++;
if ($count == 1){
print "$mod\n";
}
if ($count == 2){
print "$mod
uot;;
$val =~ s/%([0-9a-f][0-9a-f])/chr(hex($1))/ieg;
print "... Should be $val \n";
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
http://pgp.mit.edu:11371/pks/lookup?op=vindex&search=0x2A46CF06&fingerprint=on
--
To unsubscribe, e-mail: [EMAIL PR
On 1/13/07, xavier mas <[EMAIL PROTECTED]> wrote:
Yes, this is the code I use, but still doesn't work to me and I can't find the
cause.
Have you looked the results using Data::Dumper? Maybe the results
aren't as expected?
--
WC (Bill) Jones -- http://youve-reached-the
Delete the CygWin Folder ... geez.
PS - This is OT and definitely falls under the category of learn to
use your chosen platform. (God knows I myself have been told that
many times and I do not post this advice lightly. Learn to use the
operating environment you picked.)
--
WC (Bill) Jones
On 12/7/06, Beginner <[EMAIL PROTECTED]> wrote:
my $xml = eval {XMLin($fh, SuppressEmpty => 1, ForceArray =>
qr/item/) };
CGI::Lite and then use $cgi->parse_new_form_data; to get the XML into
your $xml hash.
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinter
jects.
You still need to make sure the proper functions/sub-routines are
"exported" so that your code is called in preference over the Perl
code.
However, if you wish to control what is "required" -- say branch
logic, you will need to stick with te 'require' direc
ou can place the "special" packages in their own directory and point to it:
BEGIN {
unshift (@INC, "/special");
unshift (@INC, "/special/packages");
}
use strict;
use InitGlobal;
HTH/-Sx-
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org
imply installs a kernel-level process to
"interrupt" the target thread/process when a previously determined
"event" occurs.
HTH/-Sx-
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
return back to where it was called from but
actually continue at the point AFTER the previous routine -- a little
confusing to us beginners.
HTH! =)
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mai
On 12/3/06, kyle cronan <[EMAIL PROTECTED]> wrote:
(1<<$ARGV[0])
Just a thought -
The argument you are passing is really the two's complement; so you
are really passing 256M (not 28) to the vec statement.
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
($b->{ahash} eq 'x')) if $sorted == 0;
$sorted = (lc($a->{string}) cmp lc($b->{string})) if $sort == 0;
$sorted;
}
foreach $row (sort sortrows @$rows) {
... blah blah ...
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAI
acking around with the fish protocol:
http://linuxmafia.com/faq/Security/fish-protocol.html
Maybe make it work even if ssh doesn't ...
--
WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAI
Not very imaginative, but I read in a perldoc somewhere that it's pronounced
"dollar-under." A little better than having the "score" on the end I guess.
-Bill
On 3/29/06, Timothy Johnson <[EMAIL PROTECTED]> wrote:
>
>
> I sometimes call it the "
some data and replacing some fields and dropping some records.
Thanks in advance for any help
-Bill
1 - 100 of 241 matches
Mail list logo