Webmaster Forum / Perl / General Perl Topics / March 2010

 I saw the following code about splitting a file into several pieces:
  perl -014pe 'open(STDOUT,">fred.$.")' fred
 I couldn't find what -014 means. Please advise.
 Thanks in advance.

I have a file that contains the following information:
10.21.65.252    ADMS.01.01    BAS-ADSL24R    00:0A:9F:00:D4:75   
3.2.1.28                           
10.21.66.252    ADMS.02.01    BAS-ADSL24R    00:0A:9F:00:D4:A5   

This is an excerpt from the latest version perlfaq8.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete

Is there any way to sort floating point numbers in perl?  Every
example I have tried has failed.  Numerical sort appears to NOT to  be
a  numerical sort but rather an integer sort.
Thanks,

I've spent many years just bodging my html with the CGI module. But now
I'm trying to do it properly and I'm happy with my progress so far. What
I am having trouble with is specifying cell widths (and therefore the
width of the entire column).

I am looking for some advice on where to start research for a problem
I have which I would like to solve using perl.
I have to do many travel request searches for flights and would like
to automate it, I'd like to write a script to input to my favorite

I want to be certain that a print statement is immediately executed.
Googling around led me to use "$| = 1". Is this correct? Here is an
example of how I'm using it:
my $test;

I made a perl program as follows.
-----------------
$AAA = 4.31;
$AAA *= 100;

Could anybody tell me if there is a fast and efficient way to scan/
print a large files (1Gb+) backwards ?
I am not sure that the reverse function is the best way of doing it,
particularly for really large files.

I want to write unicode characters with the Annotate method
in ImageMagick/PerlMagick (Ubuntu)
$image->Annotate(font => $font_name,
                text => $text,

Im comparing two files. Newer file has blank-line introduced at the
end. So the file difference is only a blank-line at the end. If I need
to ignore this difference, module File::Compare does not help.
tried with the third argument to the cmp function:

I'm parsing a binary string, which encodes a number.
I don't know the length of the string in advance: 1, 2, 3 or 4 bytes.
The bytes of the string are in network order.
How can I retrieve the number?

In a discussion about interview questions the following problem came up:
"Take the numbers 123456789.  Insert between each number either a + * or
nothing and find the two equations whose answer is 2002"
Of course I had a go and managed to find a solution, but I'm not really

I have the below examples where I need to get the lastname using Perl
substitute and replace:
joeAAAAsmith jrAAAAbudget where I need to get smith jr
or this

I am very new in web service with the perl language so, i writed a cgi
script (as server) and a pl script (as client).
Now, i want to generate a wsdl file to make a web service composition.
Please, tell me how can i make this task?