You can use "sleep".
On Thursday 05 April 2007 06:03, Brandino Andreas wrote:
Hi all,
is there any function i can use to add some seconds of delay in my
program??
Thanks
<> --- --- --- <>
Brandino Andreas
[EMAIL PROTECTED]
<> --- --- --- <>
--
Regards,
Nil
Hi all,
is there any function i can use to add some seconds of delay in my
program??
Thanks
<> --- --- --- <>
Brandino Andreas
[EMAIL PROTECTED]
<> --- --- --- <>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
h
On 4/4/07, Michael Gargiullo <[EMAIL PROTECTED]> wrote:
I have a log file I'm parsing that has special characters at the end of each
row. In vi it appears to be ^@ I've already tried chomp and s/\^\@//
Neither work. Does any one have any ideas?
You can match what vi(m) displays as '^@'
Gerben Wierda wrote:
I've got a XML file that contains the following snippet
>I have web page that downloads and extracts images based on file
>selection. The thank you page will not be displayed until the download
>is complete... (Understandable). One of the download files is quite big
>and the web server is timing out. I would like to thank you page to be
>displayed ins
Beginner wrote:
I have a list of names all in uppercase that I would like to
capitaIise. I can't help but think that map could make short work of
this loop but I am not sure how. Is it possible to use map here
instead of a for loop? I can see there are going to be issues with
double-barrelle
On 2007/04/04, at 18:12, Randal L. Schwartz wrote:
"Igor" == Igor Sutton Lopes <[EMAIL PROTECTED]> writes:
Igor> my $str = join( " ", map { s/\B(\w+)/\L\1/; $_ } split( /
\s+/, $_ ) );
It's bad style to modify $_ in a map, because that also modifies
the incoming
data. The simplest
xavier mas wrote:
Hi list,
I want to create an interface with Per,l like a form for a database. Searching
in cpan.org I found many Qtk and Tk modules, but I really don't know what I
need in order to create Perl programs that can be handled through an
interface.
Can you advise me on that?
On 04/04/2007 02:56 PM, Bill wrote:
Hi all. I have bunch of CSV files that have the same data. This data is sent to clients. Then the data is returned back with the Active/Remove field filled. This field is only filled by 1 client. All the files are returned back. Once they are returned back
On 4/4/07, Bill <[EMAIL PROTECTED]> wrote:
Chase,
Thanks for the quick reply. I am not familiar with how to go about doing
this. Do i need a module to do this? could you point me to some
documentation or something that i can look at?
Thanks - Bill
snip
Old school functions:
perldoc -f dbmo
Chase,
Thanks for the quick reply. I am not familiar with how to go about doing this.
Do i need a module to do this? could you point me to some documentation or
something that i can look at?
Thanks - Bill
- Original Message
From: Chas Owens <[EMAIL PROTECTED]>
To: Bill <[EMAIL PR
On 4/4/07, Bill <[EMAIL PROTECTED]> wrote:
snip
I just wanted to run this by the group and find out a more efficient way to do
this.
snip
If you are worried about memory try a hash tied to a db file.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED
Hi all. I have bunch of CSV files that have the same data. This data is sent
to clients. Then the data is returned back with the Active/Remove field
filled. This field is only filled by 1 client. All the files are returned
back. Once they are returned back I need a script that will go throu
I've got a XML file that contains the following snippet
Readin
Hello,
I have web page that downloads and extracts images based on file
selection. The thank you page will not be displayed until the download
is complete... (Understandable). One of the download files is quite big
and the web server is timing out. I would like to thank you page to be
displaye
Hello,
I would like to insert japanese characters into a MySql table, but it
just produces stange symbols.
In a nutshell, I would like to cut up a japanese html page in little
chunks and insert them into a database. I've no problem for reading the
page and printing the japanese characters on s
---
>
> Perl doesn't have the "switch" control statement.
> But you can get it by looking at CPAN:
>
http://search.cpan.org/~rgarcia/Switch-2.13/Switch.pm
>
To share some information in the up-incoming Perl 5.10
there will be a replacement for the switch clause.
The given-when is the Perl answe
Beginner wrote:
> Hi All,
Hello,
> I have a list of names all in uppercase that I would like to
> capitaIise. I can't help but think that map could make short work of
> this loop but I am not sure how. Is it possible to use map here
> instead of a for loop? I can see there are going to be issu
> "Igor" == Igor Sutton Lopes <[EMAIL PROTECTED]> writes:
Igor> my $str = join( " ", map { s/\B(\w+)/\L\1/; $_ } split( /\s+/, $_ )
);
It's bad style to modify $_ in a map, because that also modifies the incoming
data. The simplest workaround is adding local:
@out = map { local $_ = $
Beginner wrote:
> Hi All,
Hello,
> I have a list of names all in uppercase that I would like to
> capitaIise. I can't help but think that map could make short work of
> this loop but I am not sure how. Is it possible to use map here
> instead of a for loop? I can see there are going to be issu
> But this is all fairly complicated stuff and
> probably a little advanced
> for a beginners list. You might find more joy
> asking on
> comp.lang.perl.moderated, or perlmonks.
>
> --
> Paul Johnson - [EMAIL PROTECTED]
yes but there are a lot of advanced members on the
list. ok thanks for r
my $str = join " ", map { ucfirst lc } @words;
should do what your for loop is doing.
-Jason
On 4/4/07, Beginner <[EMAIL PROTECTED]> wrote:
Hi All,
I have a list of names all in uppercase that I would like to
capitaIise. I can't help but think that map could make short work of
this loop but I
On 2007/04/04, at 16:28, Beginner wrote:
while () {
my @words = split(/\s+/,$_);
my $str;
foreach my $w (@words) {
my $s = lc($w);
$s = ucfirst($s);
$str .= $s.' ';
}
print "STR=$str\n";
}
__DATA__
SOME NAME
SOMEONE WITH FOUR NAMES
ONE WITH THREE
A-HYPENED NAME
On 4/4/07, Michael Gargiullo <[EMAIL PROTECTED]> wrote:
I have a log file I'm parsing that has special characters at the end of each
row. In vi it appears to be ^@
You can use a hex-dump utility to see what characters are actually in
the file. On unix, I often use od. But if I've got the dat
Hi All,
I have a list of names all in uppercase that I would like to
capitaIise. I can't help but think that map could make short work of
this loop but I am not sure how. Is it possible to use map here
instead of a for loop? I can see there are going to be issues with
double-barrelled names bu
On 4/4/07, Michael Gargiullo <[EMAIL PROTECTED]> wrote:
I have a log file I'm parsing that has special characters at the end of each
row. In vi it appears to be ^@ I've already tried chomp and s/\^\@//
Neither work. Does any one have any ideas?
snip
^@ is one character not two. It is a
>I have a log file I’m parsing that has special characters at the end of each
>row. In vi it appears to be ^@ I’ve already tried chomp and s/\^\@//
>Neither work. Does any one have any ideas?
>
For the fast resolving,you can use the unix shell command "dos2unix" to
translate it.
$ dos2un
I have a log file I’m parsing that has special characters at the end of each
row. In vi it appears to be ^@ I’ve already tried chomp and s/\^\@//
Neither work. Does any one have any ideas?
-Mike
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.446 / V
On 4/4/07, Igor Sutton Lopes <[EMAIL PROTECTED]> wrote:
snip
unless (fork) {
snip
The fork function has three returns: undef, zero, and non-zero. It
returns 0 to the child and a pid that is non-zero to the parent on
success or undef to the parent on failure. It is important to catch
this
On 2007/04/04, at 14:58, Jeff Pang wrote:
How about this?
if ($ARGV[0] eq 'start') {
print "Starting PostgreSQL:\n";
unless (fork) {
exec "su - $PGUSER -c \"$DAEMON -D \'$PGDATA\' ";
}else {
print "ok\n";
exit;
}
} elsif ($ARGV[0] eq 'stop') {
..
>In bash i have:
>
>#case $1 in
># start)
># $ECHO_N "Starting PostgreSQL: "$ECHO_C
># su - $PGUSER -c "$DAEMON -D '$PGDATA' &"
>>>$PGLOG 2>&1
># echo "ok"
># ;;
>
>In perl, How I to build it ?
>
How about this?
if ($ARGV[0] eq 'start') {
print "Starting PostgreSQL:\
Hello,
I'm changing the script postgresq-init.sh for
postgresql-init.pl. I made all perl scripts for store
the database names. But my doubt is the case.
In bash i have:
#case $1 in
# start)
# $ECHO_N "Starting PostgreSQL: "$ECHO_C
# su - $PGUSER -c "$DAEMON -D '$PGDATA' &"
>>$PGLOG
--- Jeff Pang <[EMAIL PROTECTED]> wrote:
> >
> >If I'm not mistaken, all Perl objects are references to a hash.
> >
>
> Not correct at all.
> Perl objects can be anything that's the blessed references.
This is correct. It's another reason why you don't want to care about
what data structure
33 matches
Mail list logo