Cleanup Perl code: my $export = $doc; $export =~ s:\.odt:\.pdf:;
- by C.W.Holeman II
Perl code fragment:
my $export = $doc;
$export =~ s:\.odt:\.pdf:;
How would this be written cleaner? Not simply what are 900 other ways to write it, TMTOWTDI.
Search Results
Search found 8705 results on 349 pages for 'perl scripts'.
Page 57/349 | < Previous Page | 53 54 55 56 57 58 59 60 61 62 63 64 | Next Page >
-
-
How can i check if a file exists in Perl?
- by superstar
I am a newbie to perl. My problem is... I have a relative path $base_path = input/myMock.TGZ The filename can change. But the path is always stored in $base_path. I need to check if the file exists in $base_path. Any suggestions are helpful to meRead the article
-
Cleanup Perl code: my $export2 = $doc; $export2 =~ s:\.odt:\.pdf:;
- by C.W.Holeman II
Perl code fragment: my $export = $doc; $export =~ s:\.odt:\.pdf:; How would this be written cleaner? Not simply what are 900 other ways to write it, TMTOWTDI.Read the article
-
What is the best way to achieve `sscanf`-like functionality in perl?
- by Alphaneo
What is the best way to achieve sscanf-like functionality in perl? I am looking now looking at the sscanf module, Which is better, Option-1: Going sscanf way? Option-2: Regex way? [I am a beginner when it comes to Regex]Read the article
-
How can I enter a password using Perl and replace the characters with '*'?
- by MatthieuF
I have a Perl script that requires the user to enter a password. How can I echo only '*' in place of the character that the user types, as they type it? I'm using Windows XP/Vista.Read the article
-
When does the difference between a string and a number matter in Perl 5?
- by Chas. Owens
If a string in Perl 5 passes looks_like_number, it might as well be a number. For instance, my $s = "10" + 5; results in $s being assigned 15. Are there any cases where a string does not behave like it's numeric equivalent would have?Read the article
-
Where can find examples and tutorials for Perl's Net::Pcap module?
- by dan
Could someone provide a good documentation / tutorial/ PDFs/ reference to book link about Net::Pcap in addtion to the module documentation and this Perl and Net::Pcap article on PerlMonks?Read the article
-
How do I parse an HTML website using Perl?
- by Nano HE
Could you please give me some suggestions on how to parse HTML in Perl? I plan to parse the keywords(including URL links) and save them to a MySQL database. I am using Windows XP. Also, do I first need to download some website pages to the local hard drive with some offline Explorer tool? If I do, could you point me to a good download tool?Read the article
-
Perl daemon script for message queue hanging for 20 seconds after each process. Why?
- by Mike Diena
I have daemon script written in Perl that checks a database tables for rows, pulls them in one by one, sends the contents via HTTP post to another service, then logs the result and repeats (only a single child). When there are rows present, the first one is posted and logged immediately, but every subsequent one is delayed for around 20 seconds. There are no sleep()'s running, and I can't find any other obvious delays. Any ideas?Read the article
-
How can I check for a file size and add that result in an Excel spreadsheet in Perl?
- by Nano Taboada
Currently I monitoring a particular file with a simple shell one-liner: filesize=$(ls -lah somefile | awk '{print $5}') I'm aware that Perl has some nice modules to deal with Excel files so the idea is to, let's say, run that check daily, perhaps with cron, and write the result on a spreadsheet for further statistical use.Read the article
-
Perl: is there a simple way to validate a hash of hash element exist and defined?
- by WL
I need to validate a Perl hash of hash element such as $Table{$key1}{$key2} exist and defined. Here is what i do. (i have no idea key1 even exist) if ((defined $Table{$key1}) && (exists $Table{$key1}) && (defined $Table{$key1}{$key2}) && (exists $Table{$key1}{$key2})) { #do whatever } Is there an easier and cleaner way to do it?Read the article
-
Do you know a database written in Perl with DBI interface?
- by Aftershock
Hi, Do you know a database written in Perl with DBI interface? Or what can be used if there is no MySql or Postgresql installed? Thank you.Read the article
-
How can I replace some HTML tags based on their class in Perl?
- by Victor Sanchez
I need replace some tags in HTML using Perl: I have this: <span class="a">text</span><span class="a">text</span><span id="b">text</span> I need this, where the span tags with class=a are changed to b tags instead: <b>text</b><b>text</b><span id="b">text</span> I tried using HTML::Manipulator but did not succeed.Read the article
-
In Perl, how do I get the directory or path of the current executing code?
- by Ross Rogers
If I am in some library code, how do I determine the path to the file of the code that is currently executing? I know how to get the path of the top perl file by looking at ARGV, but if I load a library, how can that library know which path it is at?Read the article
-
How can I use a Perl hash key that has a literal dot?
- by imerez
I have a hash in Perl which has been dumped into from some legacy code the name of the key has now changed from simply reqHdrs to reqHdrs.bla $rec->{reqHdrs.bla} My problem is now I cant seem to access this field from the hash any ideas? The following is my error Download Script Output: Bareword "reqHdrs" not allowed while "strict subs" in useRead the article
-
How can I run an external command and capture its output in Perl?
- by gameover
I'm new to Perl and want to know of a way to run an external command (call it prg) in the following scenarios: Run prg, get its stdout only. Run prg, get its stderr only. Run prg, get its stdout and stderr, separately.Read the article
-
How to map UID to user name using Perl library functions?
- by Mike
I'm looking for a way of mapping a uid (unique number representing a system user) to a user name using Perl. Please don't suggest greping /etc/passwd :) Edit As a clarification, I wasn't looking for a solution that involved reading /etc/passwd explicitly. I realize that under the hood any solution would end up doing this, but I was searching for a library function to do it for me.Read the article
-
How can I implement a dispatch table using Perl objects?
- by bitbucket
What is the syntax for the hash value for a Perl object member subroutine reference in a dispatch table? use lib Alpha; my $foo = new Alpha::Foo; $foo->bar(); my %disp_table = ( bar => ??? ); I want ??? to be the code reference for $foo->bar().Read the article
-
how to make a python or perl script portable to both linux and windows?
- by Tim
I was wondering how to make a python script portable to both linux and windows? One problem I see is shebang. How to write the shebang so that the script can be run on both windows and linux? Are there other problems besides shebang that I should know? Is the solution same for perl script? Thanks and regards!Read the article
-
Is there Perl's YAPE::Regex::Explain alternative to python?
- by S.Mark
Is there Perl's YAPE::Regex::Explain alternative to python? For example, which could do following regex \w+=\d+|\w+='[^']+' to explanations like this NODE EXPLANATION -------------------------------------------------------------------------------- \w+ word characters (a-z, A-Z, 0-9, _) (1 or more times (matching the most amount possible)) -------------------------------------------------------------------------------- = '=' -------------------------------------------------------------------------------- \d+ digits (0-9) (1 or more times (matching the most amount possible)) -------------------------------------------------------------------------------- | OR -------------------------------------------------------------------------------- \w+ word characters (a-z, A-Z, 0-9, _) (1 or more times (matching the most amount possible)) -------------------------------------------------------------------------------- =' '=\'' -------------------------------------------------------------------------------- [^']+ any character except: ''' (1 or more times (matching the most amount possible)) -------------------------------------------------------------------------------- ' '\''Read the article
-
How can Perl's print add a newline by default?
- by Mike
In Perl most of my print statements take the form print "hello." . "\n"; Is there a nice way to avoid keeping all the pesky "\n"s lying around? I know I could make a new function such as myprint that automatically appends \n, but it would be nice if I could override the existing print.Read the article
-
How can I know how a perl script was started?
- by lamcro
Any way for a perl script to know who called it and/or how? Be it another script, or an executable. Straight from the command-line or the cron scheduler.Read the article
-
How do I load a module at runtime in Perl?
- by petersohn
Is it possible to load a module at runtime in Perl? I tried the following, but it didn't work. I wrote the following somewhere in the program: require some_module; import some_module ("some_func"); some_func;Read the article
-
is there a way to designate the line token delimiter in Perl's file reader?
- by Dr.Dredel
I'm reading a text file via CGI in, in perl, and noticing that when the file is saved in mac's textEdit the line separator is recognized, but when I upload a CSV that is exported straight from excel, they are not. I'm guessing it's a \n vs. \r issue, but it got me thinking that I don't know how to specify what I would like the line terminator token to be, if I didn't want the one it's looking for by default.Read the article
-
How do I suppress the "notify Microsoft" crash dialogs when I call a command from Perl?
- by Pete
I am calling a command-line program from my Perl script. When these programs crash, I am prompted with a messagebox asking me if I want to notify Microsoft. Since this is an automated system it would be desirable if I could suppress that message and continue with other things in my script. Is this possible?Read the article
