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...
26701
Marcos Ramos
marcosjsramos
Aug 7, 2009 8:33 am
"/^$thing/" Isn't that because you have $ (end line regex) just after ^ (line start reged) ? So it tries to match empty line followed by the word "thing". -- ...
26702
Jenda Krynicky
jendaperl
Aug 10, 2009 4:30 pm
From: Marcos Ramos <marcos.ramos@...> ... No. In this case Perl interpolates the variable into the regexp and uses the contents as part of the...
26703
vivek kumar
kumarvivek_2001
Aug 19, 2009 6:22 am
Hi, With respect to the question asked in [PBML] Digest Number 3109: I would like to say the command unlink $file will completely...
26704
Dukelow, Don
dondukelow
Aug 27, 2009 6:09 pm
I'm using Net::SSH::Perl it my Perl script. The problem is because of OS upgrades and what other reasons I'm not aware of the SSH key gets changed from time to...
26705
merlyn@...
merlynstoneh...
Aug 27, 2009 7:47 pm
... Dukelow,> I know how to fix it manually but I can't figure out how to get Net::SSH::Perl to see this error message so I can have Perl fix it. Dukelow,>...
26715
srinivas reddy
reddysrinivas_k
Oct 20, 2009 5:43 am
Hi All, Using GD::Graph::pie, I have created a pie chart. But, I am unable to add a legend to the chart. Is there any provision to add legend to a pie chart ? ...
26717
Shameem Ahamed
shameem.ahamed
Oct 29, 2009 5:56 pm
Hi, I am using the IMAP::Client for automating the quota check for some of the users. My script was fairly straight, and I ran in to the below error, while...
26718
lRobert Lee Binkley
leebinkley
Oct 29, 2009 7:08 pm
# Display the IMAP resource usage on the user's post office server. use strict; use warnings FATAL => 'all'; use Cyrus::IMAP; use Getopt::Std; sub usage(;$); ...
