Numerical regex help

This should be a quickie, I hope: I'm parsing an array that contains things like Zap/1 Zap/2 Zap/3 ... etc. I'm only concerned with Zap/32 - Zap/47. Will this work: if (($zapdef eq "Zap/*") and ($zapdef eq "*[32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47]*")) { dostuff(); } and even

GnuPG again: problem with if statement evaluation

I'm back. This is a piece of code taken from a larger program. I'm trying to determine that the encryption succeded, but when I try to evaluate the code, it always evaluates false even though the encryption works and produces an encrypted file. Here's the specific bit I'm concerned with: if ($g

RE: GnuPG module help?

Jason Balicki wrote: > I'm trying to do public key encryption on a file so that I can ftp > it to a server later. [snip] Nevermind. Kind of helps to, you know, open the file first. :) --J(K) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAI

GnuPG module help?

I'm trying to do public key encryption on a file so that I can ftp it to a server later. I have a very small, simple script: use GnuPG; use strict; use warnings; my $secret= "thisisatest"; my $recipient = "[EMAIL PROTECTED]"; my $gpg = new GnuPG(); $gpg->encrypt ( plaintext => "testfile.txt", ou

RE: search and replace confusion

Wagner, David --- Senior Programmer Analyst --- WGO > are the files you are processing from the same environment or a > different one? If different, then it might be invalid translation of Well, I'm processing from a Linux box, and the files are created on the same box, however your comment tipped

RE: search and replace confusion

Wagner, David --- Senior Programmer Analyst --- WGO wrote: > The above seems to be what you stated you wanted. I did nothing > else in processing. I am running on AS Perl 5.8.3 build 809 Thanks, any guesses as to what's wrong with my outer loop? --J(K) -- To

search and replace confusion

What I'm trying to do with the following code is convert some iCal files so that a specific application will read them. The problem is that this application can't deal with entries that have a date but no time. (Full examples below.) For example, if I have a DTSTART:20050616 in the file, I wan

Script critique?

Hello, I have several locations with a hardware VPN device and I've set them up to log to a central logging server. Some of the managers of these facilities would like to have a report showing who's using the VPN and when. I've written a script that does that. It works, but as I'm pretty new at

RE: SOAP::Lite help?

Todd W wrote: > Its a lot easier than that. If the WSDL file is good. SOAP::Lite > comes with a program called stubmaker.pl that takes a wsdl file as an > argument and creates a module that you can use(). Then all you do is > call functions the module makes available. T

SOAP::Lite help?

My phone vendor supplies an XML interface for their phone system that allows remote control. They have supplied me with a wsdl file, and I'm trying my hand at SOAP::Lite. I've got a RHEL clone, and I've just installed SOAP::Lite via cpan. Perl is v5.8.0. However, for some reason I can't get the

RE: Start reading from a specific line

Eduardo Vázquez Rodríguez wrote: > How can I start reading a file from n line? > For example > I open a File like this way > open(INPUT, $file) > while () > { > do something with $_; > } I'm a newbie myself, but is there a reason you've already discounted something like

RE: RegExp equivalencies

Jay wrote: > just for this list. Let's face it, this isn't about spam: this is > about violating some people's sesibility regarding a completely > arbitrary customary 4-line sig limit developed in a completely > different forum (usenet) 20 years ago when (80 x 4 = 320) b

RE: Program to read data from serial port, filter and process

position after the ^.{X}, but I don't know how to fix that. Any clues as to what I've done wrong? The input being sent to the program is of the form: |6643|Jason Balicki | |0501211243|000:00:00|0| S |0| ||13145551212 |N|| 0|00

RE: Program to read data from serial port, filter and process

Charles K. Clarkson wrote: > As John already posted, you should be using warnings and > strict in your script. Below the first line (the shebang) > place these lines. This will break your script. You'll need > to ask some questions and read the documentation to get it

Program to read data from serial port, filter and process

Some people emailed me privately and asked that I do post what I've come up with to the list. I wrote this program over the course of the last week, starting with very little perl experience (I've modified others code, and small things like that) and acomplished a goal that prior to last week I co

RE: How to find regex at specific location on line

Thanks to everyone that answered this question. I ended up using (/^.{30}\|[BNPG]\|/). I plan on adding some more checks for "|" at specific locations (other than just ^ and $, which I have now) for sanity's sake. Thanks again. Would it be helpful to others if I were to post the complete script

How to find regex at specific location on line

Hello, If you would, please consider the following input file: |6643|Jason Balicki | |0501211243|000:00:00|0| S |0| ||13145551212 |N|| 0|001001|001001| 100| 10|B|A| And the following code: while(<>){ if (whichline($_

RE: More elegant solution for a date conversion

Charles K. Clarkson wrote: [snip] > > You have $locdate scoped to the sub and all the other scoped > outside the sub. That's the "my" bit, right? Filed. Thanks. > You are also printing the new date into the log > instead of just returning the new date which is im

More elegant solution for a date conversion

Hi, I've got a phone record that keeps the date and time in the following format: YYMMDDHHMM example: 0501201500 So, I've written the following to convert it to the format: MM/DD/,HH:MM example: 01/20/2005,15:00 sub convertdate { my($locdate)[EMAIL PROTECTED]

RE: Retrieving data from telephone system.

Tor Hildrum wrote: > Unless your going to ask for help with some > actual code you have written, this is better suited > for [EMAIL PROTECTED] Ok, thanks and sorry. In that case: Update: I've discovered that I can't do network stuff right now, but I can send the call t

Retrieving data from telephone system.

I'm looking for some help with a little project that I've got going and I'm not a programmer. I can muddle my way through some things, but I've never started anything from scratch. The overview is that I am trying to get some accounting information from a phone system, and this phone system has a