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 if
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
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: [EMAIL PROTECTED]
http
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, output =
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
Wagner, David --- Senior Programmer Analyst --- WGO
mailto:[EMAIL PROTECTED] 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
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
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
Todd W mailto:[EMAIL PROTECTED] 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.
Thank
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
Eduardo Vázquez Rodríguez mailto:[EMAIL PROTECTED] wrote:
How can I start reading a file from n line?
For example
I open a File like this way
open(INPUT, $file)
while (INPUT)
{
do something with $_;
}
I'm a newbie myself, but is there a reason you've
already discounted something like:
Jay mailto:[EMAIL PROTECTED] 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) bytes
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|001001|001001| 100| 10|B|A|
And the pipes will (should) always be at the locations
shown
Charles K. Clarkson mailto:[EMAIL PROTECTED] 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
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
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
Hello,
If you would, please consider the following input file:
code
|6643|Jason Balicki | |0501211243|000:00:00|0| S
|0|
||13145551212 |N|| 0|001001|001001| 100|
10|B|A|
/code
And the following code:
code
while(){
if (whichline
Charles K. Clarkson mailto:[EMAIL PROTECTED] 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 implied by
Tor Hildrum mailto:[EMAIL PROTECTED] 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
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
20 matches
Mail list logo