[25596] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 7840 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 1 00:06:11 2005

Date: Mon, 28 Feb 2005 21:05:16 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Mon, 28 Feb 2005     Volume: 10 Number: 7840

Today's topics:
        Building perl <uk.ac.ox.physics.teaching@leeg.invalid>
        combining two arrays tgiles@gmail.com
    Re: combining two arrays <noreply@gunnar.cc>
    Re: combining two arrays <notvalid@email.com>
    Re: combining two arrays <jgibson@mail.arc.nasa.gov>
    Re: dynamic update enigma261@yahoo.com
        END blocks and fork <not@invalid.invalid>
    Re: END blocks and fork <kkeller-usenet@wombat.san-francisco.ca.us>
    Re: newbie: Perl IDE available?? <not@home.net>
    Re: Performance questions (SQL-statements) xhoster@gmail.com
    Re: Performance questions (SQL-statements) <emschwar@pobox.com>
    Re: Pure Perl OpenSSL Library <No_4@dsl.pipex.com>
        Questions about Perl for Windows al2048@aol.com
    Re: Questions about Perl for Windows <noreply@gunnar.cc>
    Re: Questions about Perl for Windows <jkeen_via_google@yahoo.com>
    Re: Questions about Perl for Windows <postmaster@castleamber.com>
    Re: Questions about Perl for Windows <newspost@kohombanDELETE.net>
    Re: swift MT940 files <not@home.net>
    Re: system (date) in perl <wyzelli@yahoo.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 28 Feb 2005 20:01:12 +0000
From: Graham J Lee <uk.ac.ox.physics.teaching@leeg.invalid>
Subject: Building perl
Message-Id: <uk.ac.ox.physics.teaching-88A814.20011228022005@news.ox.ac.uk>

If this isn't a good place to ask about building perl on a specific 
platform, then I missed that chunk of the FAQ...

I'm trying to build on Rhapsody/PPC, which is one of the predefined 
systems in Configure (and did indeed ship with perl 5.004 or 
thereabouts).  I've tried 5.6.2 and 5.8.6, neither of which will 
Configure (failing with the message "cc: ${cppflags}: no such file or 
directory" suggesting that the script isn't correctly expanding a 
variable).  Does anyone know the last compiling version of perl, or a 
fix/kludge for the Configure script?

Cheers,

-- 
I am leeg, for we are many
http://nextstep.sdf-eu.org


------------------------------

Date: 28 Feb 2005 15:29:02 -0800
From: tgiles@gmail.com
Subject: combining two arrays
Message-Id: <1109633342.736732.181440@l41g2000cwc.googlegroups.com>

Hi, all. This should be trivial but for some reason I'm terribly stuck.
I suppose that it's just not clicking in some fundamental way for me.

I am attempting to combine two arrays into a third array:

@one = qw(a-one a-two a-three a-four);
@two = qw(b-one b-two b-three b-four);

I'll save you my code mangling and just move to what my goal of the
output would be...

The output would return something on the order of:

a-one b-one
a-two b-two
a-three b-three
a-four b-four

there will always be a 1:1 correspondence between stuff on the left and
right, so there's no chance of an empty entry in the array. Going to
look into hashes now- perhaps that's what I needed all along.

nevertheless, your input would be appreciated. Thanks.



------------------------------

Date: Tue, 01 Mar 2005 00:38:57 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: combining two arrays
Message-Id: <38ho9aF5p1nn3U1@individual.net>

tgiles@gmail.com wrote:
> I am attempting to combine two arrays into a third array:
> 
> @one = qw(a-one a-two a-three a-four);
> @two = qw(b-one b-two b-three b-four);

     my @three;
     push @three, [ $one[$_], $two[$_] ] for 0..$#one;

     use Data::Dumper;
     print Dumper \@three;

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl


------------------------------

Date: Mon, 28 Feb 2005 23:46:22 GMT
From: Ala Qumsieh <notvalid@email.com>
Subject: Re: combining two arrays
Message-Id: <i3OUd.8024$OU1.2519@newssvr21.news.prodigy.com>

tgiles@gmail.com wrote:

> I am attempting to combine two arrays into a third array:
> 
> @one = qw(a-one a-two a-three a-four);
> @two = qw(b-one b-two b-three b-four);
> 
> I'll save you my code mangling and just move to what my goal of the
> output would be...
> 
> The output would return something on the order of:
> 
> a-one b-one
> a-two b-two
> a-three b-three
> a-four b-four
> 
> there will always be a 1:1 correspondence between stuff on the left and
> right, so there's no chance of an empty entry in the array. Going to
> look into hashes now- perhaps that's what I needed all along.

Arrays have no notion of correspondence. Hashes do. But hashes destroy 
the order of your elements.

If that's not a problem, you can do this:

	my %hash;
	$hash{$one[$_]} = $two[$_] for 0 .. $#one;

Or, more succinctly using a hash slice:

	my %hash;
	@hash{@one} = @two;

--Ala


------------------------------

Date: Mon, 28 Feb 2005 16:20:11 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: combining two arrays
Message-Id: <280220051620113899%jgibson@mail.arc.nasa.gov>

In article <1109633342.736732.181440@l41g2000cwc.googlegroups.com>,
<tgiles@gmail.com> wrote:

> Hi, all. This should be trivial but for some reason I'm terribly stuck.
> I suppose that it's just not clicking in some fundamental way for me.
> 
> I am attempting to combine two arrays into a third array:
> 
> @one = qw(a-one a-two a-three a-four);
> @two = qw(b-one b-two b-three b-four);
> 
> I'll save you my code mangling and just move to what my goal of the
> output would be...
> 
> The output would return something on the order of:
> 
> a-one b-one
> a-two b-two
> a-three b-three
> a-four b-four
> 
> there will always be a 1:1 correspondence between stuff on the left and
> right, so there's no chance of an empty entry in the array. Going to
> look into hashes now- perhaps that's what I needed all along.

A good candidate for C-style loops, assuming you really want string
concatenation with one space inserted between strings (untested):

my @three;
for( my $i = 0; $i < @one; $i++ ) {
  $three[$i] = "$one[$i] $two[$i]";
}


----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---


------------------------------

Date: 28 Feb 2005 12:41:48 -0800
From: enigma261@yahoo.com
Subject: Re: dynamic update
Message-Id: <1109623308.744126.245830@z14g2000cwz.googlegroups.com>

thanks Jim,
interesting article ....


Jim Gibson wrote:
> In article <1109459340.628463.47660@g14g2000cwa.googlegroups.com>,
> <enigma261@yahoo.com> wrote:
>
> > Hi,
> >
> > I am trying to accomplish the following ...
> > I have a form via which I want to execute 10 tasks (processes)
> > The 10 processes are execute sequentially.
> >
> > I want the web page to reflect the status as each task is being run
 ..
> > For Ex...
> >
> > Task 1 : Running ...
> > Task 2 : Waiting launch
> > .
> > .
> > .
> > .
> >
> > And, the status will change depending on the current status of the
> > task.
>
> Check out Randal's article in Linux Magazine on this topic:
>
> http://www.stonehenge.com/merlyn/LinuxMag/col39.html
>
> (This seems to be a frequently-asked question these days.)
>
>
> ----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet
News==----
> http://www.newsfeeds.com The #1 Newsgroup Service in the World!
>100,000 Newsgroups
> ---= East/West-Coast Server Farms - Total Privacy via Encryption =---



------------------------------

Date: Tue, 01 Mar 2005 13:23:50 +1000
From: Matthew Braid <not@invalid.invalid>
Subject: END blocks and fork
Message-Id: <d00n86$ear$3@bunyip2.cc.uq.edu.au>

[Note: I accidentally posted this in comp.lang.perl.tk. This is a repost 
in a more appropriate group.]

Hi all,

First off - where in the docs is the information on BEGIN/END/INIT/etc 
blocks? I've just spent a rather frustrating 30 mins or so trying to 
find them. No doubt its somewhere obvious that I've missed, but still....

Anyway.

Is there a standard way of disabling END block evaluation? The problem 
I'm having is that I've discovered that a package I'm using does a 
fork/exec. Normally this is ok, but if the exec fails it then does a 
CORE::exit to make sure the child ends. This triggers any END blocks 
that were defined in the parent when they really shouldn't be firing.

I know I can get around it with something like:

BEGIN {
     my $processid = $$;
     END {
         if ($$ == $processid) {
             # DO STUFF
         }
     }
}

but I didn't realise that a package I was using was failing a forked 
exec, so it took me a lot of very annoying debugging to discover what 
the problem was.

Is there a way to tell perl to only run END blocks that were defined in 
the current process (ie forked children only run END blocks that have 
been defined after the fork)? Or a way of temporarily disabling END blocks?

It just seems like a nasty gotcha that has a very consistant (but quite 
ugly) workaround.

MB


------------------------------

Date: Mon, 28 Feb 2005 20:19:43 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: END blocks and fork
Message-Id: <s37df2xut2.ln2@goaway.wombat.san-francisco.ca.us>

On 2005-03-01, Matthew Braid <not@invalid.invalid> wrote:
>
> First off - where in the docs is the information on BEGIN/END/INIT/etc 
> blocks? I've just spent a rather frustrating 30 mins or so trying to 
> find them. No doubt its somewhere obvious that I've missed, but still....

It's not in an obvious place: perldoc perlmod

> Is there a standard way of disabling END block evaluation? The problem 
> I'm having is that I've discovered that a package I'm using does a 
> fork/exec. Normally this is ok, but if the exec fails it then does a 
> CORE::exit to make sure the child ends. This triggers any END blocks 
> that were defined in the parent when they really shouldn't be firing.

Unfortunately for you, perldoc perlmod seems to imply that END blocks
are not disabl-able.  It mentions that END blocks run even under die(),
but does talk briefly about signals.  You might want to see if something
like that will work for you.

You might also try looking at $? in your END blocks, but that may end up
being unmanageable.

--keith

-- 
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
see X- headers for PGP signature information



------------------------------

Date: Tue, 01 Mar 2005 04:26:32 GMT
From: "JayEs" <not@home.net>
Subject: Re: newbie: Perl IDE available??
Message-Id: <Y9SUd.42376$wi2.24836@newssvr11.news.prodigy.com>

>   No
>   offend, every language has its own way to do thing, just
>   curious what is the tradition in this particular case.
>   Thanks
>   Dean

Tradition, Shmadition! I use OpenPerl to edit Perl code. Although I've had 
some issues where my script seemed to hang in the IDE but worked fine when 
invoked on a prompt, I've always liked the simplicity of OpenPerl while 
still providing some basic debugging tools like breakpoints and 
"step-through". Also the "watches" you can set and the debug-window are 
quite nice. It reminds me a lot of the VB6 IDE which I know, trust and 
love...

Just my 2 monetary units of varying worth depending upon currency.





------------------------------

Date: 28 Feb 2005 21:29:06 GMT
From: xhoster@gmail.com
Subject: Re: Performance questions (SQL-statements)
Message-Id: <20050228162906.978$no@newsreader.com>

Eric Schwartz <emschwar@pobox.com> wrote:
> xhoster@gmail.com writes:
> > PietLaroy@hotmail.com (Piet L.) wrote:
> >>         The query is:
> >>         "SELECT b.*, ba.* from book b, book_author ba
> >>          LEFT JOIN list_authors l
> >>          ON ba.person_id = l.person_id
> >>          WHERE b.book_id = ba.book_id
> >>          AND ba.person_id = 124"
> >
> > Almost never should you use b.* notation in production code.  Spell
> > out the columns that you want.
>
> Oh yeah.  This gives you two things:
>
> 1) Saves time if one of the extra columns returned happens to be, say,
>    a BLOB containing a JPG of the author.
> 2) Lets you confidently index by column number in the returned row(s).
>
> > Why do you think the left join is necessary?  Indeed, why is any join
> > against list_authors necessary when you never retrieve any of the
> > fields on that table?
>
> Look closer-- list_authors is aliased to 'l', which is matched to
> ba.person_id.

Correct, but no columns from l are being returned.  And under the
emminently reasonable assumption that person_id is the PK of l, then l
wouldn't be serving to determine the multiplicity of occurences of the
rows, either. I guess it is possible that person_id is not the PK of l, but
then the OP picked some really bad column names and it is entirely unclear
what he is trying to accomplish.



Xho

-- 
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service                        $9.95/Month 30GB


------------------------------

Date: Mon, 28 Feb 2005 18:21:00 -0700
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Performance questions (SQL-statements)
Message-Id: <eto4qfw5fgj.fsf@wilson.emschwar>

xhoster@gmail.com writes:
> Eric Schwartz <emschwar@pobox.com> wrote:
>> Look closer-- list_authors is aliased to 'l', which is matched to
>> ba.person_id.
>
> Correct, but no columns from l are being returned.

<snip> True enough, but now we're left clpm entirely and have gone
into comp.rdbms.suck.suck.suck. :)

-=Eric
-- 
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
		-- Blair Houghton.


------------------------------

Date: Tue, 01 Mar 2005 01:08:02 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Pure Perl OpenSSL Library
Message-Id: <vJSdnVcHsL7tXb7fRVnytg@pipex.net>

Marc wrote:
>
>>    Requests for what?  I presume you aren't going to be
>>creating/issuing thousands of certificates within minutes.
> 
> Yes, I will.

    You will be *creating* thousands of certificates within minutes!?  Why?

> I'm writing a system that will be able to identify node's clusters, so I
> will have lots and lots certificate requests at startup, then only https
> requests, handled by mod_ssl.

    Sorry - you've lost me (or rather, you haven't found me yet...).

a) What is starting up?
b) What type of certificate requests are these?

    Are these "node's clusters" sending certificates for validation? 
(mod_ssl can do that).


-- 
              Just because I've written it doesn't mean that
                   either you or I have to believe it.


------------------------------

Date: 28 Feb 2005 18:24:15 -0800
From: al2048@aol.com
Subject: Questions about Perl for Windows
Message-Id: <1109643855.662897.130360@z14g2000cwz.googlegroups.com>

I am running Windows Millennium Edition on a Pentium 4, 1400 MHz
computer from Gateway.

If I download IndigoPerl at the site
http://www.indigostar.com/indigoperl.htm ,
will I get perl AND the apache web server in one download?

How reliable is the above download?


If I download ActivePerl at the site
http://www.activestate.com/Products/ActivePerl/ ,
will I have to download Apache in a separate download?

Is ActivePerl reliable?


Also, at my job, I will have the Unix operating system. If I write a
Perl program on Unix, will this program run on
IndigoPerl or ActivePerl on Windows Millennium Edition?



Thank you for any information you can give me.


Regards,

Alex K.



------------------------------

Date: Tue, 01 Mar 2005 03:43:04 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Questions about Perl for Windows
Message-Id: <38i32mF5p6pvoU1@individual.net>

[ Did not reply to the defunct group comp.lang.perl ]

al2048@aol.com wrote:
> I am running Windows Millennium Edition on a Pentium 4, 1400 MHz
> computer from Gateway.
> 
> If I download IndigoPerl at the site
> http://www.indigostar.com/indigoperl.htm ,
> will I get perl AND the apache web server in one download?

Yes. And PHP. And the server comes pre-configured. All you need to do is 
running a simple batch file, and the package is up and running.

> How reliable is the above download?

Reliable? As reliable as the software that's included in the 
distribution, I suppose.

> Also, at my job, I will have the Unix operating system. If I write a
> Perl program on Unix, will this program run on
> IndigoPerl or ActivePerl on Windows Millennium Edition?

It depends. The more portable code you write, the greater likelihood 
that it runs on both platforms. Check out "perldoc perlport".

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl


------------------------------

Date: Tue, 01 Mar 2005 03:12:20 GMT
From: Jim Keenan <jkeen_via_google@yahoo.com>
Subject: Re: Questions about Perl for Windows
Message-Id: <o4RUd.53111$sR5.35017@trndny05>

al2048@aol.com wrote:
> I am running Windows Millennium Edition on a Pentium 4, 1400 MHz
> computer from Gateway.
> 
> If I download IndigoPerl at the site
> http://www.indigostar.com/indigoperl.htm ,
> will I get perl AND the apache web server in one download?
> 
Is there anything in the documentation at the web site above that 
suggests anything to the contrary?  The documentation clearly states 
that you get Perl, Apache and PHP all in one.  A look at 
ftp.indigostar.com/pub shows only one zip file for each version of 
Indigo Perl.

> How reliable is the above download?
> 

As reliable as any other download ... probably more so, as the author 
has been developing the produce for years and is well respected in the 
Perl community.

> 
> If I download ActivePerl at the site
> http://www.activestate.com/Products/ActivePerl/ ,
> will I have to download Apache in a separate download?
>

Yes.

> Is ActivePerl reliable?
> 
Yes.

> 
> Also, at my job, I will have the Unix operating system. If I write a
> Perl program on Unix, will this program run on
> IndigoPerl or ActivePerl on Windows Millennium Edition?
> 
Generally speaking, yes, certainly at a beginner's level.  With one 
proviso:  On *nix systems, a Perl script will begin with a 'shebang' 
line such as:

     #!/usr/bin/perl

or

     #!/usr/local/bin/perl

which tells the system to run the program using the perl executable 
located in the directory indicated in the shebang line.  A Perl script 
that starts in this manner (e.g., 'myscript'), can (once it's been made 
executable via a command such as 'chmod 0755 myscript') be invoked from 
the command line:

     $> myscript

At least up until the last time I looked, the shebang line did *not* 
function in this way on Windows.  Traditionally, to execute a Perl 
script on Windows, you would, from the command-line, call:

      C:> perl myscript

which tells the OS to run the perl executable (perl.exe) and execute 
'myscript' with perl.  How would Windows, lacking a shebang line, know 
where to find perl.exe?  It would look in your path.  So you would have 
to make sure that the directory holding perl.exe was in your path.  But 
ActivePerl automatically adds the directory holding perl.exe to your 
path, and my guess is that IndigoPerl probably does so as well.

I believe it is also possible on Windows to set up a 'file association' 
so that Windows knows that any file ending with a certain abbreviation 
is to be executed with a certain program.  Perl scripts have 
traditionally been named with a '.pl' or '.plx' abbreviation.  If you 
select this option, then you can simply call:

     C:> myscript.pl

A file association would also permit you to run a Perl script by 
double-clicking on its icon (in Activeperl, a little yellow ball).
But many people, myself included, prefer *not* to establish such a file 
association, because in the development process we usually want 
double-clicking to cause a file holding a Perl script to open in our 
text editor rather than to be executed by perl.exe.

(Note to other c.l.p.misc readers:  Since I use ActivePerl the same way 
I did 5 years ago, I may not be up on the latest procedures.  Feel free 
to correct.)

Two further notes:  (1) The comp.lang.perl newsgroup is defunct and has 
been for years; don't post to it.  (2) As a beginner, you are better off 
simply *reading* this newsgroup for a while before posting to it.  There 
are excellent mailing lists for Perl beginners (e.g., 
perl-beginners@yahoo.com and similarly named lists at learn.perl.org) 
and for Perl on Windows (e.g., perl-win32-users@activestate.com). 
Should you wish to post to this group again, study the Posting 
Guidelines first as they will not only tell you the proper way to post 
on this group; they will also train you how to solve your Perl problems 
yourself.

Jim Keenan


------------------------------

Date: 1 Mar 2005 03:53:43 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Questions about Perl for Windows
Message-Id: <Xns960BDEBA78492castleamber@130.133.1.4>

Jim Keenan wrote:

> I believe it is also possible on Windows to set up a 'file
> association' 

ActiveState does this for you

> so that Windows knows that any file ending with a certain abbreviation
> is to be executed with a certain program.  Perl scripts have 
> traditionally been named with a '.pl' or '.plx' abbreviation.

The latter is more preferred, however ActiveState perl uses .pl. It's
not that hard to make .plx work I guess, but .pl seems to be the
standard :-( 

> If you 
> select this option, then you can simply call:
> 
>      C:> myscript.pl

Or double click. With PAR (pp) you can even turn "myscript.pl" into an
exe which is nice if you want your Perl program running on someone
else's computer without installing Perl etc. 

> A file association would also permit you to run a Perl script by 
> double-clicking on its icon (in Activeperl, a little yellow ball).

Has been replaced ages ago by a nice gecko (?). (The yellow ball was a
bad attempt at drawing a pearl I guess). 

> But many people, myself included, prefer *not* to establish such a
> file association, because in the development process we usually want 
> double-clicking to cause a file holding a Perl script to open in our 
> text editor rather than to be executed by perl.exe.

If you use a nice editor like textpad, you can open with the mouse menu,
or better: create a workspace. I do prefer the association :-D. 

> (Note to other c.l.p.misc readers:  Since I use ActivePerl the same
> way I did 5 years ago, I may not be up on the latest procedures.  Feel
> free to correct.)

Done :-D.

-- 
John                   Small Perl scripts: http://johnbokma.com/perl/
               Perl programmer available:     http://castleamber.com/
            Happy Customers: http://castleamber.com/testimonials.html
                        


------------------------------

Date: Tue, 01 Mar 2005 13:03:31 +0800
From: GreenLeaf <newspost@kohombanDELETE.net>
Subject: Re: Questions about Perl for Windows
Message-Id: <38ibflF5mc060U1@individual.net>

John Bokma wrote:
> Jim Keenan wrote:

>>If you 
>>select this option, then you can simply call:
>>
>>     C:> myscript.pl
> Or double click. With PAR (pp) you can even turn "myscript.pl" into an
> exe which is nice if you want your Perl program running on someone
> else's computer without installing Perl etc. 

Additional Note: parameters passed in shebang line (-w for instance) are 
respected by ActivePerl, once perl is correctly invoked.

It seems that this type of invocation gives problems with IO 
redirections etc. See post 
1109301761.010105.121350@l41g2000cwc.googlegroups.com for details. In 
double-click, no one bothers about IO redirection anyway, but it's 
better to remember this in command prompt. Anyway the safest way is to

    C:\>perl myscript.pl

> 
> Has been replaced ages ago by a nice gecko (?).

komodo dragon. :o) Think of their IDE product.
http://en.wikipedia.org/wiki/Komodo_Dragon

> 
>>But many people, myself included, prefer *not* to establish such a
>>file association, because in the development process
<snip>
> 
> If you use a nice editor like textpad, you can open with the mouse menu,
> or better: create a workspace. I do prefer the association :-D. 
> 
For almost any editor, you can create an association from within Windows 
Explorer itself, and give one such association default (double-click) 
status. All will be available from context menu. Since double-click 
invocation is not convenient with command line argument passing, 
redirection etc, which are quite common with scripts, I also prefer to 
run scripts from the prompt and leave the associations to the editor. :)

Cheers,
sat


------------------------------

Date: Tue, 01 Mar 2005 04:30:02 GMT
From: "JayEs" <not@home.net>
Subject: Re: swift MT940 files
Message-Id: <edSUd.42377$wi2.25904@newssvr11.news.prodigy.com>

> I am trying to read a bank file with a format called  MT940 swift into a 
> data structure. The format is as follows:
>
> :28C:12345/1
> :60F:C041019GBP607,20
> :61:041020C110088,00N540NONREF
>


OT: Swift MT940... Oh boy that brings back memories. None of it any good :-)





------------------------------

Date: Mon, 28 Feb 2005 22:09:59 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: system (date) in perl
Message-Id: <XEMUd.179076$K7.151137@news-server.bigpond.net.au>

"Alexandre Jaquet" <alexj@floor.ch> wrote in message
news:cvvfr7$ga8$1@news.hispeed.ch...
> Hi I can't find why I'm getting Bad file descriptor when I use :
>
> my $time_start = system "date \"+%H:%M:%S\"";
> warn "date \"+%H:%M:%S\""; --> date "+%H:%M:%S"

localtime is your friend.. it is a Perl builtin function for what you
want...

P




------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc.  For subscription or unsubscription requests, send
#the single line:
#
#	subscribe perl-users
#or:
#	unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V10 Issue 7840
***************************************


home help back first fref pref prev next nref lref last post