[24223] in Perl-Users-Digest
Perl-Users Digest, Issue: 6415 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 19 14:26:39 2004
Date: Mon, 19 Apr 2004 11:25:54 -0700 (PDT)
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, 19 Apr 2004 Volume: 10 Number: 6415
Today's topics:
Extropia <nospam_007@yahoo.com>
Re: Extropia <tassilo.parseval@rwth-aachen.de>
Re: Extropia <dwall@fastmail.fm>
Re: Extropia <uri@stemsystems.com>
Re: Extropia <tassilo.parseval@rwth-aachen.de>
Re: foreach loop test (christie)
Re: foreach loop test <bmb@ginger.libs.uga.edu>
Re: format, stdout, with 'swrite' no hot ^ <Joe.Smith@inwap.com>
Re: Handling international characters in filenames on W <stephanebourdeaud@hotmail.com>
Re: Handling international characters in filenames on W <glex_nospam@qwest.invalid>
Re: Handling international characters in filenames on W <jurgenex@hotmail.com>
Re: Handling international characters in filenames on W <stephanebourdeaud@hotmail.com>
HASH vs Regexp <bik.mido@tiscalinet.it>
Re: HASH vs Regexp <tassilo.parseval@rwth-aachen.de>
Help me on ICP (Ardhendu Nandan)
Re: Help me on ICP <nospam@bigpond.com>
Re: Help me on ICP <bik.mido@tiscalinet.it>
Re: Help me on ICP <tadmc@augustmail.com>
Re: Help!! Cannot insert TIMESTAMP after upgrade. <shah@typhoon.xnet.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 17 Apr 2004 02:39:19 GMT
From: Don Stefani <nospam_007@yahoo.com>
Subject: Extropia
Message-Id: <rN0gc.37656$xV2.3527@newssvr29.news.prodigy.com>
I was looking at extropia.com and after googling groups for awhile it appears that their
software underwent major upgrades around 2001. I was looking for examples of medium size
applications that I can learn from.
From glancing at the code of the 'address_book.cgi' script it seems to meet the criteria
for decent Perl coding (As far as I could tell, that's why I'm posting here).
I have a bit of code as text posted here:
http://www.techcraft.us/address_book.html
From looking at this, what do you folks think?
I know from what I've read that they became outdated and knew they had to rebuild their
stuff. This doesn't look like 'Matts Script Archive' stuff to me.
As always thanks for your opinions.
dstefani
------------------------------
Date: 17 Apr 2004 07:37:05 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Extropia
Message-Id: <c5qmr1$4nsre$1@ID-231055.news.uni-berlin.de>
Also sprach Don Stefani:
> I was looking at extropia.com and after googling groups for awhile it appears that their
> software underwent major upgrades around 2001. I was looking for examples of medium size
> applications that I can learn from.
>
> From glancing at the code of the 'address_book.cgi' script it seems to meet the criteria
> for decent Perl coding (As far as I could tell, that's why I'm posting here).
> I have a bit of code as text posted here:
> http://www.techcraft.us/address_book.html
>
> From looking at this, what do you folks think?
It's a somewhat unusual application. It seems to contain hundreds of
variables but hardly any programming logic. The logic appears to be
hidden in the Extropia:: modules (which we can't see).
The script uses tainting, strictures, warnings and CGI.pm which is a
good sign. Furthermore, the code is formatted and indented nicely enough
to make it trustworthy.
There are minor things I don't instantly understand about it, though.
For example at the top of the file:
BEGIN{
use vars qw(@dirs);
@dirs = qw(Modules
Modules/CPAN .);
}
use lib @dirs;
unshift @INC, @dirs unless $INC[0] eq
$dirs[0];
The unshift() happens "too late" for the various use() statements later
on. But maybe one of the modules does a require() in one of its
subroutines in which case the above could make sense and be correct.
> I know from what I've read that they became outdated and knew they had to rebuild their
> stuff. This doesn't look like 'Matts Script Archive' stuff to me.
Yes, doesn't look like it at all. This script was written almost
certainly by someone with a good amount of experience with Perl.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Sat, 17 Apr 2004 16:29:02 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: Extropia
Message-Id: <Xns94CE7EFE222E7dkwwashere@216.168.3.30>
"Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> wrote:
> Also sprach Don Stefani:
>> I was looking at extropia.com and after googling groups for awhile it
>> appears that their software underwent major upgrades around 2001. I was
>> looking for examples of medium size applications that I can learn from.
>>
>> From glancing at the code of the 'address_book.cgi' script it seems to
>> meet the criteria
>> for decent Perl coding (As far as I could tell, that's why I'm posting
>> here). I have a bit of code as text posted here:
>> http://www.techcraft.us/address_book.html
>>
>> From looking at this, what do you folks think?
>
> It's a somewhat unusual application. It seems to contain hundreds of
> variables but hardly any programming logic. The logic appears to be
> hidden in the Extropia:: modules (which we can't see).
>
> The script uses tainting, strictures, warnings and CGI.pm which is a
> good sign. Furthermore, the code is formatted and indented nicely enough
> to make it trustworthy.
>
> There are minor things I don't instantly understand about it, though.
[snip]
I don't understand the reason for some of the arrays. For example,
my @SESSION_CONFIG_PARAMS = (
-TYPE => 'File',
-MAX_MODIFY_TIME => 60 * 60,
-SESSION_DIR => "$GLOBAL_DATAFILES_DIRECTORY/Sessions",
-FATAL_TIMEOUT => 0,
-FATAL_SESSION_NOT_FOUND => 0
);
It's an array, but the data looks as if it should be in a hash. The only
thing I can think of is that it's being passed to a subroutine and used to
initialize a hash in the sub. But if that's so, why not initialize it as
a hash from the start, and then just pass a hash reference to the
subroutine?
--
David Wall
------------------------------
Date: Sat, 17 Apr 2004 16:49:24 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Extropia
Message-Id: <x7pta65z3g.fsf@mail.sysarch.com>
>>>>> "DKW" == David K Wall <dwall@fastmail.fm> writes:
DKW> I don't understand the reason for some of the arrays. For example,
DKW> my @SESSION_CONFIG_PARAMS = (
DKW> -TYPE => 'File',
DKW> -MAX_MODIFY_TIME => 60 * 60,
DKW> -SESSION_DIR => "$GLOBAL_DATAFILES_DIRECTORY/Sessions",
DKW> -FATAL_TIMEOUT => 0,
DKW> -FATAL_SESSION_NOT_FOUND => 0
DKW> );
DKW> It's an array, but the data looks as if it should be in a
DKW> hash. The only thing I can think of is that it's being passed to
DKW> a subroutine and used to initialize a hash in the sub. But if
DKW> that's so, why not initialize it as a hash from the start, and
DKW> then just pass a hash reference to the subroutine?
i saw that too. i bet the sub's api is to take a list of args and
assign it to a hash. storing this in a hash and passing it whole would
work too but be slower. the hash has to be built and then listed in the
call. an array is faster in both cases. now if the api allowed a hash
ref OR a list, then the hash ref style would be faster. this is just a
case of an anal api designer who stuck with one method and that's that.
but i find all those predefined lists to be ugly. they seem to be
packaged args for standard calls. since i don't know the api or the
functional specs, i won't conjecture a better api. but when i see this
kind of anal text it is usually a warning that the coder knows enough to
do that style well but not enough to not to have to do it that way at
all. :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 18 Apr 2004 06:40:00 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Extropia
Message-Id: <c5t7s0$52kho$1@ID-231055.news.uni-berlin.de>
Also sprach Uri Guttman:
>>>>>> "DKW" == David K Wall <dwall@fastmail.fm> writes:
>
> DKW> I don't understand the reason for some of the arrays. For example,
>
> DKW> my @SESSION_CONFIG_PARAMS = (
> DKW> -TYPE => 'File',
> DKW> -MAX_MODIFY_TIME => 60 * 60,
> DKW> -SESSION_DIR => "$GLOBAL_DATAFILES_DIRECTORY/Sessions",
> DKW> -FATAL_TIMEOUT => 0,
> DKW> -FATAL_SESSION_NOT_FOUND => 0
> DKW> );
>
>
> DKW> It's an array, but the data looks as if it should be in a
> DKW> hash. The only thing I can think of is that it's being passed to
> DKW> a subroutine and used to initialize a hash in the sub. But if
> DKW> that's so, why not initialize it as a hash from the start, and
> DKW> then just pass a hash reference to the subroutine?
>
>
> i saw that too. i bet the sub's api is to take a list of args and
> assign it to a hash. storing this in a hash and passing it whole would
> work too but be slower. the hash has to be built and then listed in the
> call. an array is faster in both cases. now if the api allowed a hash
> ref OR a list, then the hash ref style would be faster. this is just a
> case of an anal api designer who stuck with one method and that's that.
There might be another reason for that. A Perl array is more generic
than a Perl hash in that an array has an order that is for ever
destroyed once you turn it into a hash. Usually, when having data
organized as key/value pairs, order should not matter, but who knows?
For example this:
my @ADD_EVENT_MAIL_SEND_PARAMS = (
-FROM => 'you@yourdomain.com',
-TO => 'you@yourdomain.com',
-REPLY_TO => 'you@yourdomain.com',
-SUBJECT => 'Address Book Addition'
);
If the above was used to create a mail-header, the fields could come out
as
From: ...
To: ...
Reply-To: ...
Subject: ...
Sure, the order doesn't even matter for mail-header fields but for the
sake of esthetics being allowed to specify it can be nice and considered
a feature.
> but i find all those predefined lists to be ugly. they seem to be
> packaged args for standard calls. since i don't know the api or the
> functional specs, i won't conjecture a better api. but when i see this
> kind of anal text it is usually a warning that the coder knows enough to
> do that style well but not enough to not to have to do it that way at
> all. :)
I would not instantly agree here. When I said this was an "unusual
application" I meant that it is more like an executable config file. A
bit like XUL maybe, the XML dialect to create user interfaces (used by
Mozilla, for instance).
I don't like those libraries a lot that only let the programmer specify
thousands of options and then doing all the work triggered by one
API-call based on those given options. But at least it's a deliberate
decision by those who design an API.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 16 Apr 2004 11:14:19 -0700
From: kenvin007@yahoo.com (christie)
Subject: Re: foreach loop test
Message-Id: <f977ee23.0404161014.47ad4295@posting.google.com>
Guys,
Try this,
$count = @test;
for($i=0; $i<$count;$i++){
$tmp = $test[$i];
if($i == 0){print "First array: $tmp\n";}
if($i == floor($count/2)){print "Middle array: $tmp\n";}
if($i== $count){print "Last array: $tmp\n";}
}
Cheers,
Ted Zlatanov <tzz@lifelogs.com> wrote in message news:<4nptabxm5f.fsf@lifelogs.com>...
> On Tue, 13 Apr 2004, robin @ infusedlight.net wrote:
>
> > foreach (@test)
> > {
> > print;
> > }
> >
> > for this code, I'd like some way to test if $_ is the last first or
> > middle of the array without having to use a while loop....any
> > suggestions?
>
> To me, this question 95% of the time indicates a suboptimal approach
> to the problem.
>
> You can use the index, as Matija Papec showed.
>
> You can also use pop() or shift() to shrink the array dynamically, and
> see what's left in it to see where you are.
>
> You can take the first and last elements off beforehand (with shift()
> and pop()) and then process the middle normally.
>
> If, however, you show a more complete example of what you're trying
> to do, you may get a better solution that will help you improve your
> Perl. Your example, as it is, does not need to know where in the
> array it's working.
>
> Ted
------------------------------
Date: Sat, 17 Apr 2004 09:07:17 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: foreach loop test
Message-Id: <Pine.A41.4.58.0404170900040.16046@ginger.libs.uga.edu>
On Fri, 16 Apr 2004, christie wrote:
> Try this,
>
> $count = @test;
>
> for($i=0; $i<$count;$i++){
> $tmp = $test[$i];
> if($i == 0){print "First array: $tmp\n";}
> if($i == floor($count/2)){print "Middle array: $tmp\n";}
> if($i== $count){print "Last array: $tmp\n";}
> }
Did you try it? It will never print "Last array ..."
use warnings;
use strict;
use POSIX;
my @test = ( 1, 2, 3, 4 );
my $count = $#test;
for my $i ( 0 .. $count ) {
my $tmp = $test[$i];
if ($i == 0) {
print "First array: $tmp\n"; }
if ($i == floor($count/2)) {
print "Middle array: $tmp\n"; }
if ($i == $count) {
print "Last array: $tmp\n"; }
}
__END__
First array: 1
Middle array: 2
Last array: 4
Though the definition of "Middle" is muddled. :-)
Regards,
Brad
------------------------------
Date: Sun, 18 Apr 2004 08:33:15 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: format, stdout, with 'swrite' no hot ^
Message-Id: <f3rgc.8641$hw5.7761@attbi_s53>
> Bob Walton wrote in message news:<407982BD.3080305@rochester.rr.com>
>>you will see where it says "You may therefore need to use
>>multiple formlines to implement a single record format, just
>>like the format compiler.". Some more calls of formline might give you
>>what you want, although you may need to alter the format and supplied
>>variables for those subsequent calls.
woof wrote:
> The below goes. A second call to formline gets the ^<<< but
> John Doe shows up again. Appears as if I must to this by hand or
> redirect stdio and just use write.
>
> sub swrite {
> my $format = shift;
> $^A = "";
> formline($format, @_);
> formline($format, @_);
> return $^A;
> }
You missed the part where Bob said to "alter the format and supplied
variables for those subsequent calls". This works:
unix> cat temp
my $FO_UN = " @<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<";
$name = 'John Doe';
$note = '123456789 abcdefghi ABCDEFGHI jklmnopqr JKLMNOPQR stu';
$psec .= swrite(<<"END", $name, $note);
$FO_UN
END
print qq/$psec\n/;
#---------------------------------------------------------------------------
sub swrite {
my($format,$arg1,$arg2) = @_;
$^A = "";
print "before: arg2='$arg2'\n";
formline($format, $arg1, $arg2);
print "after: arg2='$arg2'\n";
substr($format,1,14) = ' ' x 14; # Done with "@<<<<<<<<<<<<<" part
formline($format, $arg2) while $arg2 ne ""; # Do multi-line
return $^A;
}
unix> perl temp
before: arg2='123456789 abcdefghi ABCDEFGHI jklmnopqr JKLMNOPQR stu'
after: arg2='ABCDEFGHI jklmnopqr JKLMNOPQR stu'
John Doe | 123456789 abcdefghi
| ABCDEFGHI jklmnopqr
| JKLMNOPQR stu
unix>
You have to make your routine act "just like the format compiler".
-Joe
------------------------------
Date: Fri, 16 Apr 2004 20:52:32 +0200
From: "Stéphane Bourdeaud" <stephanebourdeaud@hotmail.com>
Subject: Re: Handling international characters in filenames on Win32
Message-Id: <c5pa3f$rd4$1@news-reader3.wanadoo.fr>
Rob,
Thanks for the feedback.
I worked on it all day today and came to the same conclusion as you.
I now need to find a perl function that will let me get the same result as
the dir command, that is a recursive list of all directories within a given
path...
Any ideas?
Glob is fine for listing file in a directory, but (and I am a beginner at
Perl so I am probably wrong) I haven't found a way to make it recursive.
Thanks again for the help.
Regards,
S. Bourdeaud.
"Sisyphus" <kalinaubears@iinet.net.au> wrote in message
news:407f2127$0$16598$5a62ac22@freenews.iinet.net.au...
> Sounds like one of those codeset conversion problems. DOS uses cp850 and
> windows uses cp1252 which is the same for 'normal' characters but
> differs wrt wide characters. It's a fairly simple task using Text::Iconv
> to convert from one to the other - which would be one way to get around
> the problem. It's probably just as simple to convert from one to the
> other using the Encode module which is part of the perl core with perl
> 5.8 (though I've not used it).
> Alternatively, if you use perl functions (rather than a sytem command)
> to fill @list then the problem might go away. (I think that will work
> because it will keep you within the one codeset - but I'm unsure :-)
>
> Cheers,
> Rob
>
> --
> To reply by email u have to take out the u in kalinaubears.
>
------------------------------
Date: Fri, 16 Apr 2004 15:59:32 -0500
From: "J. Gleixner" <glex_nospam@qwest.invalid>
Subject: Re: Handling international characters in filenames on Win32
Message-Id: <VOXfc.296$_R.64171@news.uswest.net>
Stéphane Bourdeaud wrote:
> Rob,
>
> Thanks for the feedback.
> I worked on it all day today and came to the same conclusion as you.
> I now need to find a perl function that will let me get the same result as
> the dir command, that is a recursive list of all directories within a given
> path...
>
> Any ideas?
>
> Glob is fine for listing file in a directory, but (and I am a beginner at
> Perl so I am probably wrong) I haven't found a way to make it recursive.
>
> Thanks again for the help.
Check CPAN for File::Find
http://search.cpan.org/
------------------------------
Date: Sat, 17 Apr 2004 01:20:51 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Handling international characters in filenames on Win32
Message-Id: <TD%fc.4505$G_.3131@nwrddc02.gnilink.net>
Stéphane Bourdeaud wrote:
> I now need to find a perl function that will let me get the same
> result as the dir command, that is a recursive list of all
> directories within a given path...
Hmmm, what's wrong with File::Find?
jue
------------------------------
Date: Sat, 17 Apr 2004 19:44:40 +0200
From: "Stéphane Bourdeaud" <stephanebourdeaud@hotmail.com>
Subject: Re: Handling international characters in filenames on Win32
Message-Id: <c5rqed$q80$1@news-reader4.wanadoo.fr>
Thanks J.,
It looks like File::Find will do the job nicely for me.
Cheers,
S.Bourdeaud
"J. Gleixner" <glex_nospam@qwest.invalid> wrote in message
news:VOXfc.296$_R.64171@news.uswest.net...
> Check CPAN for File::Find
>
> http://search.cpan.org/
------------------------------
Date: Mon, 19 Apr 2004 13:18:12 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: HASH vs Regexp
Message-Id: <pnc780h8jqq1092fob3f7fmsal19au3gs1@4ax.com>
First of all please let me apologize for the (most probably) badly
chosen subject line...
I found out that qr// returns a *blessed* reference into the Regexp
class, allowing one to do things like
#!/usr/bin/perl -l
use strict;
use warnings;
sub Regexp::matches {
my $re=shift;
grep /$re/, @_;
}
print for qr/[a-z]+$/->matches(qw/foo bar1 baz baz2/);
__END__
Now, rumors insist on the fact that basically in Perl6 everything will
be an object. OTOH I wonder why in current perl references are not
automatically bless()ed, so that one could do something like this
#!/usr/bin/perl -l
use strict;
use warnings;
sub HASH::keys { keys %{shift()} };
print for { A => 1, B => 2, C => 3 }->keys;
__END__
Of course I understand that technically some difficulties may arise
because (things like) hashrefs are commonly used to implement generic
classes, but then wouldn't add such a support as that hinted above
require just some more bits of magic a' la Perl?
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: 19 Apr 2004 11:51:42 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: HASH vs Regexp
Message-Id: <c60ege$6fs4b$1@ID-231055.news.uni-berlin.de>
Also sprach Michele Dondi:
> Now, rumors insist on the fact that basically in Perl6 everything will
> be an object. OTOH I wonder why in current perl references are not
> automatically bless()ed, so that one could do something like this
>
> #!/usr/bin/perl -l
>
> use strict;
> use warnings;
>
> sub HASH::keys { keys %{shift()} };
>
> print for { A => 1, B => 2, C => 3 }->keys;
>
> __END__
>
>
> Of course I understand that technically some difficulties may arise
> because (things like) hashrefs are commonly used to implement generic
> classes, but then wouldn't add such a support as that hinted above
> require just some more bits of magic a' la Perl?
IMHO, it certainly would and actually making that work requires just a
tiny patch to the core. However, this idea has unfortunately been
rejected by the porters. It's available from the CPAN, though:
<http://search.cpan.org/~chocolate/autobox-0.11/>
It requires you to patch the perl source and compile yourself. I had
quite a bit of fun with this modification and if I were in charge of
things, it'd surely go into perl5.10. But, alas, I'm not. :-)
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 17 Apr 2004 05:57:05 -0700
From: ardhendu_nandan@rediffmail.com (Ardhendu Nandan)
Subject: Help me on ICP
Message-Id: <419fd31c.0404170457.3a1faff@posting.google.com>
I am trying to write a c program which will communicate with another C
program
frequently but I don’t know how to do it. In Linux so many
option is there like-
pipe, semaphore, message etc but in windows I can’t use fork() ,
Signal option is there
but it’s not properly working I am just calling my another
function like this way but it’s
not working
signal ( SIGINT, quit );
-- -- -- -- -- -- -- --
Void quit ()
{
}
The program is not entering quit function. Please anyone tell me what
will be the
exact solution for it.
------------------------------
Date: Sat, 17 Apr 2004 23:43:21 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: Help me on ICP
Message-Id: <2616452.6yBK8yZ7NC@GMT-hosting-and-pickle-farming>
Ardhendu Nandan wrote:
> I am trying to write a c program
Why do you ask about C in a Perl newsgroup?
gtoomey
------------------------------
Date: Sat, 17 Apr 2004 16:01:29 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Help me on ICP
Message-Id: <2bd280pfmom8rvqaolpqe39mb11juf5tfs@4ax.com>
On 17 Apr 2004 05:57:05 -0700, ardhendu_nandan@rediffmail.com
(Ardhendu Nandan) wrote:
>I am trying to write a c program which will communicate with another C
>program
So what is the point of posting your question to a Perl ng?
So what is the point of posting separately, i.e. not crossposting, to
*another* Perl ng (comp.lang.perl.tk), and who knows to how many other
ng's (I suppose)?
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Sat, 17 Apr 2004 10:24:56 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Help me on ICP
Message-Id: <slrnc82j28.kg2.tadmc@magna.augustmail.com>
Ardhendu Nandan <ardhendu_nandan@rediffmail.com> wrote:
> I am trying to write a c program which will communicate with another C
> program
C is not Perl.
What is your Perl question?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 16 Apr 2004 16:39:27 +0000 (UTC)
From: Hemant Shah <shah@typhoon.xnet.com>
Subject: Re: Help!! Cannot insert TIMESTAMP after upgrade.
Message-Id: <c5p27v$r2o$1@flood.xnet.com>
While stranded on information super highway Mark Yudkin wrote:
> Install FP5.
It is at FP5.
>
> "Hemant Shah" <shah@typhoon.xnet.com> wrote in message
> news:c47n6s$6kk$1@flood.xnet.com...
>>
>> Folks,
>>
>> I recently upgraded/migrated my database from UDB 7.2 on AIX to UDB 8.1
> on
>> Linux. Now I cannot insert data into a TIMESTAMP column. The string I am
>> using for TIMESTAMP is in ISO format.
>>
>> The old database was using ISO-8859-1 character set, the new database is
>> using UTF-8. I have a perl script that inserts data into one of the table
>> that has time stamp column. The script worked in UDB 7 database but fails
>> with SQL0180N in UDB 8.
>>
>>
>> 1246: $InsertStmt_CodeChanged_Hdl->execute($SourceNum, $RevBranch,
> $RevDecimal,
>> 1247: $TimeStamp, $Author, $Command,
> $SubCommand,
>> 1248: $LinesAdded, $LinesDeleted);
>> DB<2> p $TimeStamp
>> 2004-03-28-17:06:39.816398
>> DB<3> n
>> lidp12|InsertCodeChangedData: DBD::DB2::st execute failed: [IBM][CLI
> Driver][DB2/LINUX] SQL0180N The syntax of the string representation of a
> datetime value is incorrect. SQLSTATE=22007
>>
>>
>> I tried to run following command on the client system but that did not
> help
>> either.
>>
>> db2 bind @db2cli.lst DATETIME ISO blocking all grant public
>> db2 bind @db2ubind.lst DATETIME ISO blocking all grant public
>>
>> How can I fix it? I need to fix it A.S.A.P.
>>
>> Thanks.
>>
>> --
>> Hemant Shah /"\ ASCII ribbon campaign
>> E-mail: NoJunkMailshah@xnet.com \ / ---------------------
>> X against HTML mail
>> TO REPLY, REMOVE NoJunkMail / \ and postings
>> FROM MY E-MAIL ADDRESS.
>> -----------------[DO NOT SEND UNSOLICITED BULK E-MAIL]------------------
>> I haven't lost my mind, Above opinions are mine only.
>> it's backed up on tape somewhere. Others can have their own.
>
>
--
Hemant Shah /"\ ASCII ribbon campaign
E-mail: NoJunkMailshah@xnet.com \ / ---------------------
X against HTML mail
TO REPLY, REMOVE NoJunkMail / \ and postings
FROM MY E-MAIL ADDRESS.
-----------------[DO NOT SEND UNSOLICITED BULK E-MAIL]------------------
I haven't lost my mind, Above opinions are mine only.
it's backed up on tape somewhere. Others can have their own.
------------------------------
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 6415
***************************************
