Title: Reverse of Chomp...
Thanks
to all, it seems join("\n",@array) will do exactly
what I
need. And for the STDOUT part, just tack on the
extra
\n for the last element.
I'll
have to look at join again to see what else it can do
as well
as map.
Thanks
for the info.
George
-Ori
Try:
print STDOUT join "\n", @array;
Brad
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of George
Gallen
Sent: Thursday, June 12, 2003 1:46 PM
To: [EMAIL PROTECTED]
Subject: Reverse of Chomp...
Is there a way to reverse chop/chomp
I'm reading into an arr
Medlen, Jiri wrote:
Hello,
Crypt-SSLeay 0.35
It is listed http://ppm.activestate.com/BuildStatus/5.6.html
but I cannot find it
for Perl 5.6.
Thanks for help.
Jiri --
Packages available from http://theoryx5.uwinnipeg.ca/ppmpackages/:
Crypt-SSLeay [0.51] OpenSSL glue that provides LWP https sup
print STDOUT join(qq{\n},@array),qq{\n};
should do it.
Hope this helps
Tobias
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of George
Gallen
Sent: Thursday, June 12, 2003 2:46 PM
To: [EMAIL PROTECTED]
Subject: Reverse of Chomp...
Is there a way to rev
Title: Message
You mean like
this?
print join "\n",
@array;
-- Mark
Thomas
Thomas.Mark@bls.gov Internet Systems Architect User Technology Associates,
Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;;
y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
-Original Message-
George Gallen wrote:
Is there a way to reverse chop/chomp
I'm reading into an array, then
chomping off the last character of each of the
array elements.
Now I'd like to write the array back out
to , but I want to put the \n's back between
each of the lines.
Aside from looping through th
Title: Reverse of Chomp...
Would this
work?
map { print "$_ \n" }
@array;
I think that
still loops through it though. H.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
George GallenSent: Thursday, June 12, 2003 3:46
PMTo
Title: Reverse of Chomp...
Is there a way to reverse chop/chomp
I'm reading into an array, then
chomping off the last character of each of the
array elements.
Now I'd like to write the array back out
to , but I want to put the \n's back between
each of the lines.
Aside from lo
Hello,
Crypt-SSLeay 0.35
It is listed http://ppm.activestate.com/BuildStatus/5.6.html
but I cannot find it
for Perl 5.6.
Thanks for help.
-Jiri-
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailm
> We are observing this call:
>my @dir = qx(DIR /B "$path" 2>&1); chomp(@dir);
> to intermittently return absolutely NO output
>if (!scalar(@dir)) { ### process strange error
> when we actually KNOW that there are files in
> the directory that is in $path,
> mainly since the exact same
On Thu, 12 Jun 2003, Charbeneau, Chuck wrote:
>
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> > Subject: Win32::OLE and Excel Sorting
>
> > heres one for u folks to get ur heads around - cos its doin mine in
> >
> > keeps throwing range method error in OLE
>
>
> The problem lies in the d
On Wed, 11 Jun 2003, Paul Decker wrote:
> I don't seem to be able to test for the existence/non-existence of a
> directory path using the "-d" file test using AS Perl 5.6.1 on WinXP
> Pro. Regardless of the existence of the directory, the test returns
> true. Anyone else see this?
>
See what? S
On Tue, 10 Jun 2003, alex p wrote:
> All,
> I am really bad at REGEX's and am in need of help!
> I have a script that asks for users input but I need to check that the input
> begin with "MDS(and a number 0-9)" before proceeding
>
> below is something like what I am doing:
>
> print "ask for input
Because opendir/readdir don't support unicode filenames
(that is 'cp932' (ShiftJIS) and others),
nor do -e -f -d work, or work consistently with the
filenames from opendir/readdir with unicode chars
in the filenames..
"Thomas, Mark - BLS CTR" wrote:
> > We are observing this call:
> > my @di
> We are observing this call:
> my @dir = qx(DIR /B "$path" 2>&1); chomp(@dir);
> to intermittently return absolutely NO output
> if (!scalar(@dir)) { ### process strange error
Why are you trying to use a system command to read a directory, when
readdir() is built in to perl?
--
Mar
15 matches
Mail list logo