On Fri, May 31, 2019 at 12:44 PM wrote:
> > I would suggest posting this to the Perl 5 Porters list; it’s probably
> > the best venue to get an answer to your question.
> >
> > https://lists.perl.org/list/perl5-porters.html
>
> Thanks for the hint although the description "people interested in Pe
From: Walker, Michael E
Sent: Thursday, September 01, 2016 12:47 PM
To: 'Aaron Wells'
Subject: RE: Question about Beginning Perl by Simon Cozens
Thank you all for sharing your perspective on this. I will compare both the
first and second editions of Beginning Perl. Cozens’ writing st
Hi, even though Beginning Perl dates back to 2000, is it still relevant for
learning today? I wondered, because when Googling, I saw posts recommending
against its use, but yet it is still listed at books.perl.org. Please discuss,
or point me to the archive on this list where this has been discu
"Walker, Michael E" wrote:
> Hi,
>
> What framework are you all using for database development? When
> tracking this thread back to the original message, I thought, "Nice
> syntax." I am overall new to Perl, but am learning it for ETL at work.
>
> Than
Hi,
What framework are you all using for database development? When tracking this
thread back to the original message, I thought, "Nice syntax." I am overall new
to Perl, but am learning it for ETL at work.
Thanks,
Mike
-Original Message-
From: Shawn H Corey [mailto:shawnhco...@gmail.c
how about using awk to print the last column, using number of columns
variable $NF:
awk '{print $NF}' file
Regards,
Mike
On Sun, Jul 13, 2014 at 4:43 PM, ESChamp wrote:
> I apologize for having to ask this but my nearly-80-year-old brain just
> could not come up with a solution.
>
> I have a
Hi Juan, see below:
On 11/18/2013 10:45 AM, Juan Wei wrote:
Michael,
Please send questions to the list. I'm not a private support channel and
you will likely find more help faster there.
I have the Cywin version of perl installed on a Windows 7 computer, and
it does not have a pe
, and try and write some code that solves your problem. If you
have further trouble, feel free to email the list including the code you
have tried and I or others here will be more than happy to assist.
Good luck,
Michael
On 11/13/2013 07:45 AM, Alaba, Oluwafemi (IITA) wrote:
Dear Michael,
Thanks
return value of system calls such as close.
It's unlikely after reading but a big problem after writing:
close $PROTEINFILE
or warn "Problem closing protein file $proteinfilename. Reason: $!";
Cheers,
Michael
--
Michael BraderSenior Software Engineer a
use warnings;
foreach my $test (@ARGV) {
system "./$test";
}
--
Michael Rasmussen, Portland Oregon
Be Appropriate && Follow Your Curiosity
Other Adventures: http://www.jamhome.us/ or http://gplus.to/MichaelRpdx
A special random fortune co
dically refresh the results
page until the zip is available.
This isn't really a Perl question, so if you need further help, you might
want to ask it in a forum devoted to web development.
Cheers,
Michael
On 09/05/2013 01:25 PM, Chankey Pathak wrote:
Sorry I can't do that. Isn&#x
aracters. How
> >would I do that?
>
> The solution from John Krahn is superior by far, and there is no need for any
> other suggestions.
John's solution:
next if /[^[:lower:]_\d\-. ]/;
Doesn't work in this test environment:
michael@bivy:~$ cat tpl && .
mplate, $template, \$log4perl_cfg ) || die
'Template error: ' . $tt->error();
# Comment or remove this line once you are happy with the generated config
print "CONFIG: $log4perl_cfg\n";
Log::Log4perl->init( \$log4perl_cfg );
my $logger = get_logger('main');
my $rs
nter or was asking if there
was an automagic indicator.
This example shows one reason why a counter isn't a bad thing.
--
Michael Rasmussen, Portland Oregon
Be Appropriate && Follow Your Curiosity
Other Adventures: http://www.jamhome.us/ or http://gplus.to
a list
> my @letters = (a .. z);
> foreach my $letter ( a .. z ) {
>if ( $letter eq $letters[4] ) {
>
> but that's sort of silly.
And buggy, consider:
my @timings ( 11, 22, 3, 14, 18, 45, 18, ... 86 );
--
Michael Rasmussen, Portland Oregon
(#lines are commented out)
Limit what join acts on by using parenthesis.
print '[', join ( '][', @fruits ), ']';
This keeps your closing bracket from being part of the list that join is acting
upon.
--
Michael Rasmussen, Portland Oregon
B
On 07/26/2013 06:10 AM, Charles DeRykus wrote:
On Wed, Jul 24, 2013 at 10:56 PM, Michael Brader
mailto:mbra...@internode.com.au>> wrote:
[...]
There are at least 2 modules that can definitely do the job for you,
Date::Manip::Date and DateTime (with DateTime::Format::Natur
.
For example, the code above will happily turn '99-99-2013' into '2013-99-99'.
Cheers,
Michael
--
Michael BraderSenior Software Engineer and Perl Person
Our World Wide Web has a World Wide Network Technology/Softdev/DevOps
Internode http://intern
.
Cheers,
Michael
--
Michael BraderSenior Software Engineer and Perl Person
Our World Wide Web has a World Wide Network Technology/Softdev/DevOps
Internode http://internode.on.net/ mbra...@internode.com.au
iiNet http://iinet.net.au/
would love to wrap this up so I can
transfer my contacts to my new address book. Thanks again to all.
my $url = $item->findvalue('a[@class="lnk-store-item"]/@href');
See an XPath reference for why.
And go to bed!
Cheers,
Michael
--
Michael BraderS
what it really is.
Generically:
use ;
# code that calls on the modules functions or OO interfaces as documented.
--
Michael Rasmussen, Portland Oregon
Be Appropriate && Follow Your Curiosity
Other Adventures: http://www.jamhome.us/ or http://gplus.to/
ything I've been trying to search for seems dated (2005 and earlier).
> >>
> >>
> I'll second Catalyst. Start simple, and it's pretty easy to learn.
>
> http://www.catalystframework.org/
And I'll second Dancer, simplier, quicker to learn, plenty power
On Sat, May 25, 2013 at 04:19:27PM +0200, Dr.Ruud wrote:
> On 24/05/2013 22:25, Michael Goldsbie wrote:
>
>> [...] I installed DWIM Perl [...]
>> So after downloading and installing it, what's the next step?
>
> On http://dwimperl.com/ there is a link to 'Per
->$type ) {
print "$type : ", $ip->$type(), $/;
}
else {
print "no more $type\n";
}
}
}
__END__
michael@bivy:~/rmme$ ./tpl
Start ip [192.168.0.0]
start mask [24]
After incrementing by 1
now at 192.168.0.1
ip : 192.168.0.1
short : 192
, 2013 at 4:58 PM, Michael Goldsbie <
michael.golds...@alum.utoronto.ca> wrote:
> There is, yes, and thank you for telling me about it. However, still,
> nothing happens when I choose Run Script. I am guessing some components
> are not correctly installed or something.
>
>
&
There is, yes, and thank you for telling me about it. However, still,
nothing happens when I choose Run Script. I am guessing some components
are not correctly installed or something.
On Fri, May 24, 2013 at 4:50 PM, Robert Wohlfarth wrote:
> On Fri, May 24, 2013 at 3:25 PM, Michael Golds
*NOTE: To skip directly to the problem itself, skip to the bolded text
below. However, I thought I would give some background context first.*
Hi,
My name is Michael, and I am trying to get into Perl. While I have Ubuntu
Linux installed on my computer, my default environment is Windows 7, and
asked what kind of hardware you're running this on, so I will.
Reading the thread, I created a very simplistic test:
michael@post:~$ wc -l /var/log/mail.info
973819 /var/log/mail.info
michael@post:~$ time perl -ne '$t = substr $_, 4, 9; $s = substr $_, 11,
15; print $t,$
I don't know if he was speaking of making the code you can see hard to
understand (like some sigs I've seen) or keeping others, online perhaps, from
the seeing the code (like object code). You can of course "see" object code but
you would have to be able to read machine code, in hex, and most do
adable Everyone
Thanks you very much for all the responses.
ms
____
From: timothy adigun <2teezp...@gmail.com>
To: Michael Smith
Cc: "beginners@perl.org"
Sent: Saturday, February 2, 2013 11:40 AM
Subject: Re: getting perl to open pl file extension in XP
I know get a new OS :)
First I installed strawberry perl but it has no GUItest and I couldn't get
guitest to install. Then I deleted strawberry and I installed
padre-on-strawberry because it says it already contains GUItest and now I can't
get anything but notepad to open the pl files. I have t
@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
--
Regards,
*Michael Dabydeen *
*
*
*Telephone (M)*: 647-389-2286
*Web:* http://about.me/mikedabydeen
---
illustrate the difference:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw/ Dumper /;;
my @a1 = ( 1, 2, 3 );
print '@a1: ' . Dumper(\@a1);
my @a2 = [ 1, 2, 3 ];
print '@a2: ' . Dumper(\@a2);
Cheers,
Michael
--
Michael Brader
ings;
use File::Spec; # for splitpath
my $path = 'c:\p4\car\abc\xyz.csproj';
my ( $volume, $directories, $file) = File::Spec->splitpath( $path );
print <<"EOINFO";
Volume: $volume
Directories: $directories
File: $file
EOINFO
exit 0;
__END__
Cheers,
Michael
--
#x27;
76
Now perl will leave the input record separator on the string, but we can
take that off with chop:
echo '>>' | perl -0076 -nE 'chop,say if /AAAA/'
TIMTOWTDI of course, and you could also do it like this:
echo '>>' | p
On Thu, Jul 5, 2012 at 6:19 AM, lina wrote:
> PORT STATESERVICE
> 3000/tcp filtered ppp
This should show state 'open'. Do you have a firewall configured that
would be blocking this? 'iptables -L -vn' output will show this.
Mike
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.or
I hate when I do that. :(This email contains my actual comments (see
below).
On Tue, Jun 12, 2012 at 9:50 AM, Bob McConnell wrote:
> > From: Paul Johnson
> >
> > On Tue, Jun 12, 2012 at 07:11:57PM +0300, Shlomi Fish wrote:
> >
> > > OK. For Windows there is now http://dwimperl.com/ which
On Tue, Jun 12, 2012 at 9:50 AM, Bob McConnell wrote:
> > From: Paul Johnson
> >
> > On Tue, Jun 12, 2012 at 07:11:57PM +0300, Shlomi Fish wrote:
> >
> > > OK. For Windows there is now http://dwimperl.com/ which is open-source
> > and is
> > > considered better than Activestate Perl.
> >
> > [cit
rds and 'perldoc strict' for more
info on what "use strict 'subs' forbids and allows.
Cheers,
Michael
Michael Brader
Senior Software Engineer - Billing
Techops - Softdev
Internode http://www.internode.on.net/
From: Mark Haney [ma
On Sun, May 27, 2012 at 07:24:26PM -0700, John W. Krahn wrote:
> Michael Rasmussen wrote:
>> [ a bunch of blather, snipped here ]
>
> The regular expression is not splitting! It is capturing.
> split removes whitespace.
> The regular expression captures non-whitespace.
>
$str .= ' ' x (rand 10 + 1);
$str .= ",";
# change the /\S+/ to /,/
Rate regex split
regex 63021/s-- -8%
split 68790/s9%--
Perhaps the lesson is split on whitespace else regex
--
Michael Rasmussen, Portland Oregon
Other Adve
abc) { print "You have choosen \"abc\" as $abc" };
# ==
If you don't have List::MoreUtils installed and can't install it, replace the
'if ( any...)' block with:
foreach my $arg (@ARGV) {
if ( $arg eq '-help' ) {
$help = 1;
ghtforward way to do this is to run your script with the perl debugger:
perl -d script_name
When it loads you'll see something like:
michael@bivy:~$ perl -d tpl
Loading DB routines from perl5db.pl version 1.32
Editor support available.
Enter h or `h h' for hel
s-enclosed-by='"' --fields-terminated-by='|'} );
Cheers,
Michael
On 05/10/2012 11:32 AM, Alvin Ramos wrote:
Have a simple perl script that will run a mysql dump, but I'm getting
Can't find string terminator '"' anywhere before EOF at ./ssh.pl l
w if there are any.
There are a few, the largest being pair Networks.
http://perl.apache.org/help/isps.html
--
Michael Rasmussen, Portland Oregon
Other Adventures: http://www.jamhome.us/ or http://westy.saunter.us/
Fortune Cookie Fortune du courrier:
The best book on progr
On 2012-05-01 06:43, Manfred Lotz wrote:
On Tue, 1 May 2012 05:57:28 -0700
Michael Rasmussen wrote:
On Tue, May 01, 2012 at 11:58:46AM +0200, Manfred Lotz wrote:
> Hi there,
> What is a recommended Module for processing config resp. inifile
> formats?
>
> One important featu
our comments in
addition to your previously defined entries. I've found it to be a
very easy to use module.
--
Michael Rasmussen, Portland Oregon
Other Adventures: http://www.jamhome.us/ or http://westy.saunter.us/
Fortune Cookie Fortune du courrier:
Dicipline is making the
d) and ($mail_field ne '') ) {
>>> $host = $mail_field;
>>> }
>>
>> I would use:
>>
>> my $host = $mail_field ? $mail_field : 'localhost' ;
>>
>>
>
> Well, since $mail_field is not likely to be false unless it's undef
ay I've come up with is to simply output the report data to
> disk as an HTML file and then include that output in a PHP page that is
> correctly formatted.
Again, you haven't described why Perl can't create the same HTML the PHP does.
--
Michael Rasmuss
Before Due Date: 06/15/12
0 06/15/12
Clean up and elegence left as an exercise for the reader
--
Michael Rasmussen, Portland Oregon
Other Adventures: http://www.jamhome.us/ or http:/
makes sense. You're looking for Date::Calc... wait _time_
Time::Format?
Time::Tiny has a from_string function that looks like what you're
after.
Is that what you're looking for?
--
Michael Rasmussen
http://www.jamhome.us/
Be Appropriate && Follow Your Curiosit
gt; going for IO or Sockets..
> I want to make it work.
> Please, I need some workable parameters. Help.
> And it dies, simply. Don't know what goes on beneath the
surface...
>
>
> On Tue, Apr 24, 2012 at 6:26 AM, Michael Rasmussen
>wrote:
>
>> On Tue, Ap
to know any mailhost's address???
most programs/people ask the DNS system to return the mail host for any given
domain.
> Its irritating when you fail on the first step.
Yes it's irritating. What is your objective? To learn about SMTP and Perl or
to
just send some mail?
If &quo
e entire chapter on subroutines, including the many
reasons
to prefer () to & is online:
http://www.devshed.com/c/a/Perl/Subroutines-in-Perl/
--
Michael Rasmussen, Portland Oregon
Other Adventures: http://www.jamhome.us/ or http://westy.saunter.us/
Fortune Cookie F
cution of ./testsub.pl aborted due to compilation errors.
Alternatively, and to my sensibilities cleaner:
#!/usr/bin/perl
use strict;
use warnings;
sub mysub; # declares it, mysub no longer a bareword
mysub();# does it, () not required for Perl parser, but are nice for
maintainers
.
The commentors add more examples.
Somu, I believe this is what you've been asking for.
On Sat, Apr 14, 2012 at 09:44:59AM -0700, Michael Rasmussen wrote:
> On Sat, Apr 14, 2012 at 07:05:54PM +0300, Shlomi Fish wrote:
> > Hi Somu,
> >
> > On Sat, 14 Apr 2012 21:0
tarian
hair brush to can of paint
To a greater or lessor degree you might try to use one for the purpose
but it's not the right tool for the job.
--
Michael Rasmussen, Portland Oregon
Other Adventures: http://www.jamhome.us/ or http://westy.saunter.us/
Fortune Cookie
u need to assign the return of Class::Inspector->methods to a scalar
and later defererence the reference.
You could make these changes:
my $methods = Class::Inspector->methods('IO::File', 'full', 'public');
print @$methods;
# consider print join $/, @$met
ue estoy amando
>
> Gracias a la vida que me ha dado tanto
> Me ha dado la marcha de mis pies cansados
> Con ellos anduve ciudades y charcos
> Playas y desiertos, montañas y llanos
> Y la casa tuya, tu calle y tu patio"
>
> Vioeta Parra - Gracias a la Vida
>
>
On 3/22/2012 3:47 PM, Manfred Lotz wrote:
Hi all,
If I run the following small test snippet
<--snip>
#! /usr/bin/perl
use strict;
use warnings;
use autodie;
open my $hdl, ">", "fileio1.txt";
print $hdl "a line\n";
close $hdl;
open HDL, ">", "
Hello everyone.
Here is my question: What is the preferred way to test a system for
installed modules? For example, I have a Perl program I would like to
distribute. It depends on a number of modules from CPAN and I would
like an easy way to test for the existence of those modules. I
suppose t
27;baz' => 'biz',
'foo' => 'bar'
},
'two',
{
'c' => [
'one',
'two',
'three'
],
'a' => 'b'
}
];
--- END --
Hopefully this is useful.
Mike
--
Michael
mich...@thegrebs.com
M: +1-562-MIKEGRB
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
f format string,
the sample code you showed used '%0' the number.
--
Michael
mich...@thegrebs.com
M: +1-562-MIKEGRB
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
e=>254);
This should do what you want, when you use '@terms' the array gets
expanded to the list of items in the array, the backslash causes a
reference to the array to be passed instead. The relevant
documentation is perlref
<http://perldoc.perl.org/perlref.html#Making-References&
At 6:47 PM +0800 1/13/10, Majian wrote:
>Hi,all
>
>There is a problem confused me for a long time .
>It is:
>
>cat test.txt
>
>1,
>2,
>3,
>4,
>5,
>6,
>7,
>8,
>9,
>10,
>11,
>
>
>
>Then I want to this result :
>1 2 3 6 9
>4 7 10
>
param( 'POSTDATA' );
ADD
6ec973aa3f7a96e43f86b8d2aea0585ba3096c28
5551313
SMS
15551212
Test message sent from script %%DNAME%% %\xdaTE%%
ALERT
ADD
6ec973aa3f7a96e43f86b8d2aea0585ba3096c28
5551313
SMS
15551212
Test message sent from script %%DNAME%% %%DATE%%
ALERT
http://learn.pe
e-
From: Shlomi Fish [mailto:shlo...@iglu.org.il]
Sent: Wednesday, January 06, 2010 1:48 PM
To: beginners@perl.org
Cc: Grove, Michael
Subject: Re: double quotes are needed
On Wednesday 06 Jan 2010 20:38:29 Grove, Michael wrote:
> Thanks.
>
> Is this better?
>
> print "$first
mp; Industry
651 Boas Street Room 124 | Harrisburg, PA 17121
Phone: 717-705-2724 | Fax: 717-783-6364
AIX Hot Line 717-525-5598 | AIX Cell 717-329-0502
-Original Message-
From: Shlomi Fish [mailto:shlo...@iglu.org.il]
Sent: Wednesday, January 06, 2010 1:48 PM
To: beginners@perl.org
Cc: Gr
ot Line 717-525-5598 | AIX Cell 717-329-0502
-Original Message-
From: Shlomi Fish [mailto:shlo...@iglu.org.il]
Sent: Wednesday, January 06, 2010 1:48 PM
To: beginners@perl.org
Cc: Grove, Michael
Subject: Re: double quotes are needed
On Wednesday 06 Jan 2010 20:38:29 Grove, Michael wrote
-Original Message-
From: Shlomi Fish [mailto:shlo...@iglu.org.il]
Sent: Wednesday, January 06, 2010 12:45 PM
To: beginners@perl.org
Cc: Grove, Michael
Subject: Re: double quotes are needed
Hi Mike!
On Wednesday 06 Jan 2010 19:27:59 Grove, Michael wrote:
> Can someone tell me why I need double
Can someone tell me why I need double quotes for this to work at the line with:
print $first, $second, $third\n;
#!/usr/bin/perl -w
$first = 0xFF;
$second = 0377;
$third = 0b;
print $first, $second, $third\n;
$answer = $first + $second + $third;
print "$answer\n";
It only gives this out
Hi,
>
> Do you need the fastest possible sort?
I'm not even sure if I really need to worry about all these
sorting techniques. My program just reads a text file
(wordlist). It might be megabyte-sized or probably few
gigabytes (i might also add size checking on this to be
safe with File::Sl
Hi,
i'm planning to sort an input file (which was File::Slurp'ed, most likely
megabyte-sized file) in various ways. I did some readings and learned several
methods
that people have come up with in recent years. So to summarize, the default
sort is fast (uses quick sort), explicit (using sub) is
Hi,
if I have a script that accepts any combination of the 5 or maybe even more
options, say, option1, option2, option3...
Now, after collecting the options, for each option, there is a corresponding
regexp pattern. I will then build an if statement, where the test should be,
all the options
last is the length.
The above line is too cryptic for me. What confused me more is that the return
value of substr was assigned the $_.
If someone can help me decipher each line, i'll be very happy.
--- On Mon, 10/26/09, Thomas Bätzler wrote:
> From: Thomas Bätzler
> Subject: AW
hi,
I have this code, mentioned below:
my @word = qw(a b c );
my $length = @word;
my $char1, $char2, $char3;
if ($length == 3){
for ($char1 = 0; $char1<$len;$char1++){
for ($char2 = 0; $char2<$len;$char2++){
for ($char3 = 0; $char3<$len;$char3++){
print "$word[$char1]$word[$char2]$word[$c
Hi,
How do I split a word into n subsets?
my $word = "thequickbrown"
If I want three subsets I should be able to create:
the
heq
equ
upto
own
Using split function with limit of 3 gives me:
t h equickbrown
Any idea how to do this? I'm thinking maybe I can just split the whole st
I was thinking about this recursive thing... thanks for the tip.. will try this
out.. I hope I can accomplish it.
--- On Sun, 10/25/09, Gabor Szabo wrote:
> From: Gabor Szabo
> Subject: Re: compact my wordlist generator
> To: "Michael Alipio"
> Cc: "begginer
Hi,
I'm trying to write a word list generator which can
generate all possible combinations of n characters, within n
set of characters.
So far, this is what I have come up. The only input is the
lenght of the password the user wants.
my @set = qw(a b c d e f g h i j k l m n o p q r s t
On 0, Steve Bertrand wrote:
> Michael Pobega wrote:
> > I'm using the Daemon::Easy module to write a basic Perl daemon, but I'm
> > wondering if there is a way to stop the daemon from within the script (as
> > opposed to running "./script.pl stop")? Cur
I'm using the Daemon::Easy module to write a basic Perl daemon, but I'm
wondering if there is a way to stop the daemon from within the script (as
opposed to running "./script.pl stop")? Currently I have a subroutine to do
this, but it doesn't seem to cleanly erase the pid file.
> &killMe {
>
Hi,
I have a string that looks like this:
my $string = "1, 3, 0. 0. 0. 0, 22, Zak',adfk $&! mac., ";
Basically, there are seven fields. after the bird, everything up to the last
comma is the 5th field. 6th field is blank.
Now my problem is splitting it and extracting the 5th field.
If I wil
Hi,
I have a program that computes the number of elapsed minutes and seconds.
if the outputs are:
2 minutes, and 8 seconds.
How do I print those two values to look like "Elapsed time: 02:08"
Thanks!
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands
s. Another problem solved!!!
Till next time!
--- On Wed, 5/27/09, Chas. Owens wrote:
> From: Chas. Owens
> Subject: Re: variables gets shared to child but resets back after exiting fork
> To: "Michael Alipio"
> Cc: "begginers perl.org"
> Date: Wedn
;m reading the perlipc now.. nothing so far..
--- On Wed, 5/27/09, Chas. Owens wrote:
> From: Chas. Owens
> Subject: Re: variables gets shared to child but resets back after exiting fork
> To: "Michael Alipio"
> Cc: "begginers perl.org"
> Date: Wednesday, May 2
Hi,
I have to run an external program but the program does not termination on some
conditions, e.g, ping, will not exit unless you specify -c or some other
circumstances.
Now I what I want to do is:
my @array;
die "Cannot fork myprog" unless (defined my $pid = fork)
if ($pid==0){
open MYPROG
Hi,
I need to register a few accounts on a website that uses captcha. It's just a
few accounts but it's a very daunting task because there are so many fields to
fill up. Is there a way I can do this in perl? What I want is that my script
will fire up the browser, access that particular registr
Hi,
> >
> $$postdata{'login:command/username'} =
> ($username eq '')?'':$username;
>
> $$postdata{'login:command/username'} is usually written as
> $postdata->{'login:command/username'}. You compare
> $username to '' and if it is equal to '' then you return ''
> and if it is not equal
Hi,
I thought I had it all figured out. Hash within hashes really made my code
cleaner until I came up with this code:
While looping, I was creating a key 'webloginpostdata' with value of anonymous
hash as seen below;
$all_ap{$_}->{'webloginpostdata'} = {
I have a c code that looks like this:
#include
main (){
char girl[] = "anna";
char boy[] = "jude";
stringcopy(boy, girl); /* copy boy to girl */
printf("%s", girl);
}
void stringcopy(char *b, char *g){
while ((*g++ = *b++) != '\0')
;
}
It prints fine...
However if I replace the stringcopy
Hi,
I've searched the web and didn't find anything useful. Is there anyway to cross
compile my perl code to mipsel? or do i have to learn C??
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
-Ursprüngliche Nachricht-
Von: Brian J. Miller [mailto:wigg...@danconia.org]
Gesendet: Dienstag, 28. April 2009 14:15
An: SCHWARTZKOPFF, Michael, Dr. (Extern)
Cc: beginners@perl.org
Betreff: Re: Problem with threaded Math::GMP
SCHWARTZKOPFF, Michael, Dr. (Extern) wrote:
> Hi,
>
not
use threads?
Howto make cpan install a "normal" verison, which my system can use?
Thanks for any help.
Mit freundlichen Gruessen / Best regards
Michael Schwartzkopff
MTU Aero Engines GmbH
Abteilungsbezeichnung ()
Department ()
Dachauer Str. 665
80995 Muenchen
Germany
Tel +4
Hi,
Is it possible to print something and then replace what you have printed with a
different value?
Say I have a program that watches a logfile and prints the current number of
lines.
after sleeping for n seconds, it will print the number of lines again. But i
don't want to print it below t
Hi,
I have a script that forks a child. at the parent, i have a line that tells it
to sleep for n seconds. Once the 3 seconds have passed, it will kill the child
process.
I noticed that most of the time, sleep doesn't count exact seconds.. most of
the time it's longer. Is there any way to sle
Hi,
I have this code:
die "Could not fork command1!" unless defined (my $command1_pid = fork);
if ($command1_pid == 0){
open EXTERNAL_PROG1, "external_prog1 |" or die "Can't run external_prog1";
while (){
if (/pattern/){
die "Could not fork command2" unless defined (my $command2_p
Aha, found it.. The split returned a list and you've just sliced it. giving
[-1] means the list will start running through the elements backwards.
--- On Tue, 4/14/09, Michael Alipio wrote:
> From: Michael Alipio
> Subject: Re: Turn off $ anchor greedy behavior
> To: &
>
> Or use split and return the last field:
>
> $ perl -le'
> my $string = "boy, pig, 123, 123:412adbd, d0g,
> lajdlf134><<_ lkadsf !234,\n";
> my $value = ( split /,\s+/, $string )[ -1 ];
Another mind bogling example... :-)
I thought I would do:
my @value = ( split /,\s+/, $string );
print $
> my $string = 'boy, pig, 123, 123:412adbd, d0g,
> lajdlf134><<_ lkadsf !234,';
>
> if( $string =~ m/,\s*([^,]*),[^,]*$/ ){
> print "$1\n";
> }
How could you guys write this so simple? My regexp was twice this long.
the regexp after \s* tells perl to match anything (0 or more) that is not a
Hi,
I have a $string that is separated by , and space;
boy, pig, 123, 123:412adbd, d0g, lajdlf134><<_ lkadsf !234,
Now I want to capture the string(s) between last two commas. It consists of
anything upto 32 characters. that is, right after d0g,\s+ up to the last
character before the last c
1 - 100 of 1633 matches
Mail list logo
