Perl Forum

The following code produces fine result when everything is hard wired but replaces '.' and ',' with there octal counterparts when the variables are passed to it. Can't figure out why. I would appreciate if anyone could shed some light to the darkness. ex. hard wired kermit.lowry,food Passed variables

I would like to do something similar to Python's "import <module> as <name>". This way if I want to use another module that offers the same subroutines I only have to change my "use" statement and not the every line of the form "&Module::Sub()". Can I do this? Or, is there perhaps another, better way of achieving the same kind of...

Hello all, I am trying to write a script (without much luck) that will modify certain lines in a sendmail file. Here is what is in the file: SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@...

I've installed the DBD::Proxy and RPC::PLServer modules on Windows 2000 accessing SQL Server 2000 (through an ODBC system DSN). I can interface to the database from one or more Linux boxes just fine, with the exception that the server is single threaded (i.e., when submitting a query from one script on the same or different clients,...

I hope to have a Linux box sitting in the boot of my car using perl and some CPAN modules for Ogg-Vorbis and Audio Streaming for a home-built stereo system. I recently scored a GPS locater that plugs into a USB port, and this. The old PC doesn't have a usb card in it, not a big deal, I'd pay a few bucks for it, but I can't seem to find a USB...

Hi, This is related to my previous post but I made it much simpler... open (INFILE, "test.txt"); while (<>) { print $_; s/one/two/g; print $_; }

I am trying to talk to Winamp2 from Perl on Win32 system. According to winamp docs I need to send a windows message with the following structure: (To add a file to the playlist) COPYDATASTRUCT cds; cds.dwData = IPC_PLAYFILE; cds.lpData = (void *) "file.mp3"; cds.cbData = strlen((char *) cds.lpData)+1; // include space for null...

I tried posting this at PerlMonks.org, but didn't get very far... So I wrote a Perl script about 5 months ago to parse a rather strange text file. Here's a sample of the source file: AACE_1: { class: mic_if_win, label: "!AACE.*", mic_if_handles_windows: 1

Hi, I know how to make files executable with chmod but how is a directory marked as executable? Thanks

Hi, Would something like: if (-r $name) { : # do nothing } else { print "File is not readable...\n"; }

Hi All, The following piece of code is what I have tried to update a simple Access database (none of the commented out code worked either). The connection to the database seems to be fine because I am able to read data from it. However, when trying to add another row of data, nothing seems to happen. I have also checked the permissions...

Hi how can I assign the output of the hash method to a variable? From the documentation: hash ( , ) Called without parameters, or with the first argument false, hash marks are suppressed. If the first argument is true but not a reference to a file handle glob, then \*STDERR is used. The second argument is the number of bytes per hash mark...

I've installed perl 5.8.0 on my FreeBSD 4.8. The installation ran smoothly and without any problems. After I've tried to upgrade CPAN from shell (cpan> install Bundle::CPAN) as it was suggested I've stumbled upon Segmentation fault and core dump. Now, everytime I try to install something through the CPAN shell, I get the same error. I can't...

An odd (to me) behavior I was hoping someone could explain. Take the simple command: perl -e 'print 0xCEC5 + 0xFFFFE253 & 0xFFFF' I tried this on a number of computers. Most give 0xFFFF, which just seems wrong. This includes Perl 5.6 and 5.8 on Linux and Darwin (OSX). Also one Solaris box with 5.0. One computer (Perl 5.6, HPUX) gave...

Here's what I'm working with so far, but all I wind up with is a 0 byte file at the end, and the error; "Filehandle PLIST opened only for output at ./medialist.pl line 20." I know this error is pretty self explanatory, but for some reason I'm unable to correct it, and I was under the impression that I was opening / creating my file in the...

Quick question. I have this regexp: s/(.{$descmin,$descmax} ).*/$1.../ The purpose is to trim a long string by adding '...' at the end of a truncated version (after the last full word), using $descmin and $descmax to determine how long the truncated string can be.

Anyone have some sample perl code for authenticating to a web server secured with Netegrity Siteminder?

Simply put this is what I would like to do $str = "print \"this command \\n \" " ; $str(); Doesnt work. Is there away to put together a perl command in a string and then

Hello, I've just installed perl DBI v1.38 which according to the documentation supports the method last_insert_id(). For some reason the return value I get is undef. Here is my source code : #!/usr/local/bin/perl

This may be a question for ActiveState support, but just in case anyone out there knows what the problem is... My call to Net::POP3->new() works fine when run through the perl interpreter, but fails when I compile the script with PerlApp and run it. My system is Windows 2000, ActiveState Perl 5.8.0 build 806, PerlApp 5.2.0 build 520. ...

Hi everyone I'm a newbie to the world of Perl. I'm especially interested in the web and CGI programming with Perl. Can anyone recommend some good books or tutorial websites about these topics? Thanks in advance.

The Perl Cookbook Bidirectional TCP client does not work in Win32 ActivePerl. Does anybody have a fix for this or can recommend me an example of a working Win32 client?

do u know why print "\n a)", scalar split /:/, ':'; print "\n b)", scalar split /:/, ':f'; print "\n c)", scalar split /:/, ':f:'; writes: a)0 b)2

I'm a perl newbie, with next to no programming experience (I did a bunch of Fortran 25 years ago, but nothing since). I have a problem I need to solve, and I'm wondering whether perl is the best tool. I need to log a fairly fast data stream to a file, after adding a time stamp to the end of each line. The data is ASCII text, and will be...

I can't seem to get it to attach to an active perl session. Has anyone been able to get it to debug more than 1 process at a time?