Perl News

Home

Forums

Perl Wiki

Perl News

Monday, May 12, 2008

..:: Perl News ::..

comp.lang.perl.misc

A site for all ypur programming language needs
A complete tutorial for all your programming language needs such as Java, .Net and many more. A one shop site for all your programming language needs <a target="_blank" rel=nofollow href="http://www.computenetwork.blogspot.com">[link]</a>

FAQ 3.22 How can I get "#!perl" to work on [MS-DOS,NT,...]?
This is an excerpt from the latest version perlfaq3.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

FAQ 3.27 Where can I learn about linking C with Perl?
This is an excerpt from the latest version perlfaq3.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

FAQ 4.24 How do I reverse a string?
This is an excerpt from the latest version perlfaq4.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

Creating new pages automatically with PDF::API2
Since no one in the beginners group could answer this I thought I'd ask it to this group. I am using PDF::API2 to create PDF files from a bunch of separate text files I have. The issue I am having is that I am only able to create the first page of each text file and I haven't been able to figure out how to automatically generate additional pages

FAQ 3.28 I've read perlembed, perlguts, etc., but I can't embed perl in my C program; what am I doing wrong?
This is an excerpt from the latest version perlfaq3.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

code written under 5.10.0 to be run under 5.8.8
I understand that one can specify that a script must be run under a perl version no earlier than a particular version. So, if I say 'use 5.6.0', that code will throw an error if one tries to run it under perl 5.5.0, right? But how about the reverse case? Suppose I write code on my desktop, which has perl 5.10.0 installed, and

FAQ 4.22 How do I expand function calls in a string?
This is an excerpt from the latest version perlfaq4.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

Printing a new line
Sounds simple enough. I am printing to a text file file open (example, ">remote.txt") || die ("Could not open file. $!"); print example ($first_name); print example ($last_name); close (example); I have tried putting \n but it gives errors. Basically I want the first and last names on a new line. thanks

FAQ 4.12 How do I find the day or week of the year?
This is an excerpt from the latest version perlfaq4.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

regex problem unresolved
Dear Gurus, I was suggested by experts to post runnable codes to seek advice. Unfortunately, after 4-day trial, I'm unable to break down the large codes written by others to a smaller one. And as what xhoster inferred exactly, the matching string comes from a data file and therefore cannot be known in

XML::Simple
I am having some problems with XML::Simple and forcearray. I am trying to get the XML file read in as an array instead of into a hash. I am on Perl 5.6.1 and XML::Simple 1.06 and I can not updated. I have to figure out how to do this on the system I am on. XML File: <?xml version='1.0'?> <apps> <app name="a" id="a">

Filehandles
Hi, I have a question about filehandles, even after reading the docs... I know how to start a subprocess from perl and read from it. But how do I write to the parent process that started me, the perl script? I have tcl script from somewhere that calls a perl script I'm writing. The tcl script says: set channel [open |./randomize RDONLY]

FAQ 4.4 Does Perl have a round() function? What about ceil() and floor()? Trig functions?
This is an excerpt from the latest version perlfaq4.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

FAQ 3.30 What's MakeMaker?
This is an excerpt from the latest version perlfaq3.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 perlfaq is at <a target="_blank" rel=nofollow href="http://faq.perl.org">[link]</a> .

perl.beginner

$^I
I just looked it up on perldoc perlvar, but I am still not sure what it does. $^I The current value of the inplace-edit extension. Use "undef" to disable inplace editing. (Mnemonic: value of -i switch.) I was reading perl cookbook and saw this example, and was wondering what

Can't run PERL scripts on a shared server?
I've been trying to setup a connection w/ a shared server at godaddy.com. The script won't work and when I called them they tell me that because I don't have a dedicated server that I can't run a perl script and so I need to upgrade my account. I can access the shared server w/ PHP....why can't I do it w/ PERL? I've gotten bullsh*t

comparing two binary numbers
Dear all, I need to compare two binary numbers and need perl to return the number of matching bits. For example: $aaa = "10111100"; $bbb = "00101100"; In this case, the number of matching bits is 6. I know I could split the strings and compare the bits one by one. However, is there any faster functions for this? I need to compare

Please help critcize and shorten my sub code
I dont know how to go through the array over and over again pending on my previous search so I ended up writing it like below which works.. but looks really really inefficient.. sub dd_fact { my $routename = shift; my $routegroupid; my $trunkgroupid; my $carriername; my $carrier_active;

split slice question
I use this before (split slice ) but it's working bit funny now.. can someone tell me why?? it looks like it's splitting on '' instead of /|/ as I have specified below... ?? use strict; use warnings; my $array = q/hi|how|are|you|fine/; my ($moe,$hae,$now) = (split(/|/,$array))[0,1,2]; print "$moe $hae $now\n";

perl-support for vim help needed
does anyone use perl-support for vim here? I installed it but having trouble bringing up the menus.. does anyone uses this? and know how to bring up the menu? If the root menu 'Perl' is not visible call it with the item "Load Perl Support" from the standard Tools-menu. <-- where is this standard tools-menu?

Text to hex
Given a string of text, how do I convert it to a string of hexadecimal values? For example, given the string "Hello", I want the string "48 65 6C 6C 6F".

Perl MQSeries API newbie help
Hi: I have very little knowledge about MQ Series. I have built the MQ Client and MQSeries perl API on my server. My MQ admin also has provided me the name of ques, queue manager, MA CHannel, hostname and port. I am trying to build a simple script that will connect to a que and fetch messages. I have not found any useful examples on the web. Can someone share a code ?

dns error or module error?
Trying to install Net::SSLeay on Solaris 9 and I get the following message in the output: Use of uninitialized value in subroutine entry at /m1/shared/perl/5.8.5-09/lib/5 .8.5/sun4-solaris/Socket.pm line 373. Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at /m1/shared/perl/5.8.5-09/lib/5 .8.5/sun4-solaris/Socket.pm line 373.

script for an mbox
I need to remove all messages older than X from a gigabyte size mbox. Anyone got a script for this? Tony Heal Pace Systems Group, Inc. 800-624-5999 x9317

deleting a user name from a file
I'm writing this script to remove users from a file, the sudoers file, to be more specific. Here is what I have so far, not sure where to go from here. *#!/usr/bin/perl -w my $sites = $ARGV[0]; my $user = $ARGV[1]; for my $site ($#ARGV[1]){ open FILE, "$_/local/etc/sudoers" or die "cannot open sudoers for $sites:

Documentation problem
Hi all, I have some problem on writing remarks on module. <code> use SomeMod ; # exported "BuildFather" $x = BuildFather ( %argv ) ; $x_child = $x -> GiveSomething ( %argv ) ; $x_grandson = $x_child -> DoSomthingElse ( %argv ) ; print $x_child -> {Value}{Provided}{by}{Grandson } </code> So, which is a class?

one liner for for and if
use warnings; use strict; my @array = qw/one two three four/; print "$_\n" for @array last if "$_" eq q/three/; [root@server tmp]# ./!$ ././././testthis2.pl syntax error at ././././testthis2.pl line 8, near "@array last " Execution of ././././testthis2.pl aborted due to compilation errors. Can someone fix my last statement on this program?

error in printing unicode
I just finished reading "Beginning Perl by Simon Cozens Chapter 1: First Steps In Perl" and i tried to print a Unicode character using the \x{} but i got a strange outcome i don't understand. The code was: use warnings; print "\x{2620}\n"; and the result was: Wide character in print at C:\Documents and

install module problem
Hi, I'm trying to install a perl module (Net::SSLeay) on a Sun unix box running Solaris 9. In doing the make, I get a message from the shell in the output: "sh: gcc: cannot execute". To me this sounds like it's saying it doesn't know what/where gcc is. My gcc is in /usr/local/bin, but /usr/local/bin is not in PATH. So I