You can download a free copy of HSLAB Shutdown folder Lite, I have
downloaded it from: http://www.hs-lab.com/Downloads/Shareware/df/df-l.exe
and it works perfect!
- Original Message -
From: Hirosi Taguti [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, July 16, 2003 5:42 AM
Hi dear perl users, I have a file like this:
..
31563;qualified;REMUS;IPR;05/11/2002;REMUS 6.30;-Bouygtel/REMUS/Instance -
Paiement/Rechargements/ppc_tools;W_REM_QUA
31617;standby;DIAMANT-SIEBEL;IPR;06/11/2002;DIASBL
1.1;-Bouygtel/DIAMANT-SIEBEL;W_DIASBL_MOE
hi all,
i have a code snippet as below:
while( $pass1 ne $pass2 ) {
while( $pass1 eq || $pass1 !~ /^[a-zA-Z0-9-_]{3,16}$/ ) {
print Enter a password for the administrator account: ;
$pass1 = STDIN;
chomp $pass1;
print Hello\n;
print You entered
use strict;
use warnings;
my $input_file = input.txt;
open (INFILE, $input_file) or die Can't open $input_file! $!\n;
my @input = INFILE;
foreach (@input) {
chomp;
next if (/^\D/);
print $_\n;
}
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL
Manjula Babu wrote:
hi all,
i have a code snippet as below:
while( $pass1 ne $pass2 ) {
while( $pass1 eq || $pass1 !~ /^[a-zA-Z0-9-_]{3,16}$/ ) {
print Enter a password for the administrator account: ;
$pass1 = STDIN;
chomp $pass1;
print Hello\n;
Thanks it works but it deletes the line which not begins with a number, i
wanted to put what is not beginning with a number and at the beginning of a
new line to the continuation of the preceding line.
I hope you understand what i want to do.
Thanks.
-Message d'origine-
De: Beckett
use strict;
my @out;
foreach() {
chomp;
if (/^\d+;/) {
push @out, $_;
}
else {
if (defined $out[-1]) { $out[-1] .= $_; }
}
}
$,=\n;
print @out, ;
-Message d'origine-
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Envoy : vendredi 18 juillet 2003 11:04
: [EMAIL
Masters!?
Is there a neater way of doing this:?
my $sheet;
foreach (1, 2, 4) {
$sheet = $_;
print \$sheet = $sheet\n;
}
something along the lines of:
foreach (my $sheet = (1, 2, 4)) {
print \$sheet = $sheet\n;
}
But this doesn't work as intended.
Thanks.
R.
How 'bout:
print \$_ = $_\n foreach (1, 2 4);
Or
foreach my $sheet (1, 2, 4) {
print \$sheet = $sheet\n;
}
jason
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Beckett Richard-qswi266
Sent: Friday, July 18, 2003 8:57 AM
To: '[EMAIL
C:\tmptype in.txt
31563;qualified;REMUS;IPR;05/11/2002;REMUS 6.30;-Bouygtel/REMUS/Instance -
Paiement/Rechargements/ppc_tools;W_REM_QUA
31617;standby;DIAMANT-SIEBEL;IPR;06/11/2002;DIASBL
1.1;-Bouygtel/DIAMANT-SIEBEL;W_DIASBL_MOE
31646;entered;Fraude;HLP;06/11/2002;GEOLE 2.5.1;-Bouygtel/Fraude/FRD
What about:
foreach my $sheet (1,2,4) {
print \$sheet = $sheet\n;
}
Tobias
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Beckett Richard-qswi266
Sent: Friday, July 18, 2003 6:57 AM
To: '[EMAIL PROTECTED]'
Subject:
Beckett Richard-qswi266 wrote, on Friday, July 18, 2003 8:57 AM
: Is there a neater way of doing this:?
:
: my $sheet;
: foreach (1, 2, 4) {
: $sheet = $_;
: print \$sheet = $sheet\n;
: }
Is this what you're looking for?
foreach my $sheet (1, 2, 4) {
print \$sheet =
Title: RE: Neater?
foreach (1, 2, 4) {
print \$sheet = $_\n;
}
-Original Message-
From: Beckett Richard-qswi266 [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 18, 2003 8:57 AM
To: '[EMAIL PROTECTED]'
Subject: Neater?
Masters!?
Is there a neater way of doing this:?
my
Does anyone else see this when they post?
Any idea what it is? Should I worry about it?
Thanks.
R.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: 18 July 2003 14:33
To: Richard Beckett
Subject: [ERR] Neater?
Transmit Report:
To: [EMAIL
Masters!?
Is there a neater way of doing this:?
my $sheet;
foreach (1, 2, 4) {
$sheet = $_;
print \$sheet = $sheet\n;
}
something along the lines of:
foreach (my $sheet = (1, 2, 4)) {
print \$sheet = $sheet\n;
}
But this doesn't work as intended.
Thanks.
Hi,
try:
foreach my $sheet (1, 2, 4) {
print \$sheet = $sheet\n;
}
Regards,
Martin Kellner
|-+---
| | Beckett Richard-qswi266 |
| | [EMAIL PROTECTED] |
|
foreach $sheet (1,2,4) {
print \$sheet = $sheet\n;
}
-Message d'origine-
De : Beckett Richard-qswi266 [mailto:[EMAIL PROTECTED]
Envoyé : vendredi 18 juillet 2003 14:57
À : '[EMAIL PROTECTED]'
Objet : Neater?
Masters!?
Is there a neater way of doing this:?
my $sheet;
foreach
- Original Message -
From: Beckett Richard-qswi266 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, July 18, 2003 10:57 PM
Subject: Neater?
Masters!?
Is there a neater way of doing this:?
my $sheet;
foreach (1, 2, 4) {
$sheet = $_;
print \$sheet = $sheet\n;
}
something
Title: RE: REWRITE RE: Error trapping
Grrr still didn't catch the error =(
-Original Message-
From: Burak Gürsoy [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 17, 2003 1:06 PM
To: [EMAIL PROTECTED]
Subject: RE: REWRITE RE: Error trapping
ok, try this one:
#!/usr/bin/perl
Hi,
I am writing a simple query which is failing:
The query and the error is :
QUERY
=
use DBI;
$dbh = DBI-connect('DBI:Oracle:reldb','rnd','welcome')
or die Couldn't connect to Local database: . DBI-errstr;
$GET_ARU_FAILURES EOU;
SELECT
What happens if you do this instead:
$GET_ARU_FAILURES = EOU;
(yes, the equal sign is missing).
And, you're not doing any interpolation in the here-doc, so you might as
well write:
$GET_ARU_FAILURES = 'EOU';
and save yourself from writing those \ over and over again.
Hope
well... it must catch it. BEGIN blocks happen at the compile time and at the
beginning...
for example, I can catch this compile time error:
#!/usr/bin/perl -w
use strict;
BEGIN {
$| = 1;
$SIG{__DIE__} = sub
my $msg = shift;
print ERROR: $msg;
exit;
};
}
Hi all,
The search function is incredibly slow on Activestate. I am looking for a
sample script that lets me search my entire network for a file.
foreach $server (@Servers) {
if (file I'm looking for ) {
print $file \tPath to file;
}
)
Anyone have suggestions?
-Tom
Is there a neater way of doing this:?
my $sheet;
foreach (1, 2, 4) {
$sheet = $_;
print \$sheet = $sheet\n;
}
something along the lines of:
foreach (my $sheet = (1, 2, 4)) {
print \$sheet = $sheet\n;
}
print \$sheet = $_\n for (1,2,4)
24 matches
Mail list logo