Hi, I wrote following program to send an email to my email id, looks like it is running. But when I checked my mailbox, does not find any email. Can anybody...
26672
netsquire
Jul 15, 2009 8:23 am
How can I see the origin of some method? i.e. - where (in what file, or package) was defined this sub?...
26673
Arun Pandey
arunp@...
Jul 15, 2009 8:38 am
Perl function caller should help you out caller EXPR caller Returns the context of the current subroutine call. In scalar context, returns the caller's ...
26674
Kelly Jones
kelly.terry.jones@...
Jul 15, 2009 1:33 pm
According to "man perlrun", the "-0777" option sets $/ to 0777 and slurps files whole. This works fine. However, when I did 'local $/="0777"' in a script, it...
26675
hwitche
Jul 15, 2009 2:22 pm
Hi all, How can I stop my find script to go into sub directories and stay in specific directory = "dir2" only? $directory="..\/dir1\/dir2"; @ARGV =...
26676
vidhut singh
chat2vidhut
Jul 15, 2009 10:33 pm
there is option called $File::Find::prune which if you set in callback function 'wanted' , by using this option you can block the pruned directory . you can...
26677
Amit Saxena
learn.tech123@...
Jul 16, 2009 9:13 am
Hi all, I need help regarding the approach to find out matched and unmatched entries between two files using perl. As the number of lines in the files would be...
26678
Amit Saxena
learn.tech123@...
Jul 16, 2009 2:40 pm
Hi Jim, Thanks for the response. I was doing the approach which you have mentioned as the fastest one. I was using nested data structures for the same. The...
26679
hwitche
Jul 18, 2009 5:15 am
Thank you Vidhut for your help, I would have only one wish left for the perl gurus: to implement a tiny "stop" tag into the line "find(sub {$name{$File:...
26680
merlyn@...
merlynstoneh...
Jul 18, 2009 2:29 pm
... hwitche> I would have only one wish left for the perl gurus: to implement a hwitche> tiny "stop" tag into the line "find(sub {$name{$File: :Find::name} = ...
26681
Jeff Pinyan
evilffej
Jul 18, 2009 6:57 pm
... The *perlrun *document states that the numeric value of the *-0*command-line feature is an *octal* value. (You can use a hexadecimal value by using...
26682
Jon Reynolds
jonr@...
Jul 21, 2009 7:26 am
... You never fail to let me know just how far away I am from being a perl guru or a beginner, for that matter Randall. But I always get hopeful the more your...
26683
johnethompson2001
johnethompso...
Jul 22, 2009 6:08 pm
Note: I'm new to using the mailing list - my apologies if I'm doing anything incorrectly. I'm having a problem with parsing some CSV data. I'm using ...
26684
Hans Witschi
hwitche
Jul 26, 2009 4:33 am
Hi Randal an Jon, I respectfully insist: I still DREAM of a switch in: find(sub {$name{$File::Find::name} = -f;}, @ARGV); For now I have a construction with...
26685
merlyn@...
merlynstoneh...
Jul 26, 2009 4:19 pm
... Hans> Why so much coding when it could be achieved much easier, having somewhere Hans> deeper in the perl machine code a stop switch like "stay" in the ...
26686
fooguy89
Jul 28, 2009 2:16 pm
Let's say I have this snippet: $_ = "test"; my $thing = "test"; if (/^$thing/) { print "Yah!\n"; } else { print "booo...\n"; } It correctly prints "Yah!". If...
26687
Shawn H. Corey
shawnhcorey@...
Jul 28, 2009 2:22 pm
... You need to escape the meta-characters in $thing, but don't change $_. if( /^\Q$thing\E/ ){ See `perldoc perlre` and search for /\\Q/ You can also read...
26688
merlyn@...
merlynstoneh...
Jul 28, 2009 2:24 pm
... fooguy89> $_="[test]"; fooguy89> my $thing = "[test]"; if (/^\Q$thing/) { .... } See \Q in the docs (I think it's in "perldoc perlre"). -- Randal L....
26689
call_ashutosh2003
call_ashutos...
Jul 28, 2009 3:01 pm
Why are you putting ^ in "/^$thing/" when you assigne $_ to "[test]" write (/$thing/) as $_ now begins with [ ;)...
26690
sudha karan
sudhagkaran
Jul 28, 2009 3:47 pm
You can try as below. my $_ = "[test]"; my $thing = "[test]"; $thing =~ s/\[/\\\[/g; if (/^$thing/) { print "Yah!\n"; } else { print "booo...\n"; } Sudhakaran....
26691
merlyn@...
merlynstoneh...
Jul 28, 2009 3:55 pm
... sudha> You can try as below. But \Q handles a lot more than [. And should be the preferred solution. -- Randal L. Schwartz - Stonehenge Consulting...
26692
fooguy89
Jul 28, 2009 5:56 pm
The \Q ... \E as suggested works great. Thanks all!...
26693
nikhil deshpande
deshpandenik...
Jul 29, 2009 10:57 pm
Hi everyone, I am preparing a script to extract certain data from a file. The file is stored at the location specified in the variable $dir_path below. There...
26694
merlyn@...
merlynstoneh...
Jul 29, 2009 11:32 pm
... nikhil> $dir_path = </abc/def/ghi/pp123456.2.3.4.jk.xyz>; What is this? Not Perl. Some other language? -- Randal L. Schwartz - Stonehenge Consulting...
26695
Jeff Soules
soules@...
Jul 30, 2009 4:42 am
On Wed, Jul 29, 2009 at 6:45 PM, nikhil ... Generally, the best practice is to use well-tested and thoroughly-designed modules to solve problems like these....
26696
Vivek Kumar
kumarvivek_2001
Aug 2, 2009 4:06 am
Hi Nikhil, hope this will resolve your problem $dir_path = "/abc/def/ghi/pp123456.2.3.4.jk.xyz"; $filename = ($dir_path =~ /(.*)\/(.*)\/(.*)\/(.*)/); $filename...
26697
schelske.geo
Aug 6, 2009 1:01 pm
On Windows, can a file that is deleted with the unlink command be recovered? If so, is there a way in Perl to delete a file so that the deleted file is...
26698
Marcos Ramos
marcosjsramos
Aug 6, 2009 7:43 pm
First of all - this is my first post. So just want to know if I'm doing everything right. Then I may suggest a workaround for that problem: - overwrite that...
excuse i think that you must use this function index string , $thing ... From: MAJID AGHA AMINI <amini4@...> Subject: Re: [PBML] Re: Regular Expression...
