From: John Kelly on
On Wed, 30 Jun 2010 23:26:59 -0400, "Uri Guttman" <uri(a)StemSystems.com>
wrote:

>you don't get this group at all. it discusses perl. all posts here are
>open to comments about the perl in them. the exclusively news aspect of
>usenet or nntp is long gone. your bringing that up is just silly. silly!
>silly! silly!

Like a troll, you don't hear what I say. You hear what you want to
hear. I didn't say usenet is *exclusively* news.

You regard this ng as your personal territory, and hate it when someone
won't follow your self projection bias.


--
Web mail, POP3, and SMTP
http://www.beewyz.com/freeaccounts.php

From: Tad McClellan on
John Kelly <jak(a)isp2dial.com> wrote:
> On Wed, 30 Jun 2010 23:26:59 -0400, "Uri Guttman" <uri(a)StemSystems.com>
> wrote:
>
>>you don't get this group at all.


> Like a troll,


Do you have much experience on Usenet?

If so, and if you truly believe that Uri is a troll,
then please attempt to exert some self control and don't feed it!


--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
From: Uri Guttman on
>>>>> "JK" == John Kelly <jak(a)isp2dial.com> writes:

JK> On Wed, 30 Jun 2010 23:26:59 -0400, "Uri Guttman" <uri(a)StemSystems.com>
JK> wrote:

>> you don't get this group at all. it discusses perl. all posts here are
>> open to comments about the perl in them. the exclusively news aspect of
>> usenet or nntp is long gone. your bringing that up is just silly. silly!
>> silly! silly!

JK> Like a troll, you don't hear what I say. You hear what you want to
JK> hear. I didn't say usenet is *exclusively* news.

JK> You regard this ng as your personal territory, and hate it when someone
JK> won't follow your self projection bias.

nah, i just don't like bad perl code and comment on it when i see
it. you are projecting dislike of your code onto dislike of you. keep it
up and they will become the same. in the mean time your code needs work
and you shouldn't be offering help to others until it gets better. you
will still do that and will still comment on your code.

uri

--
Uri Guttman ------ uri(a)stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
From: C.DeRykus on
On Jun 30, 4:56 pm, James Egan <jegan...(a)comcast.net> wrote:
> On Thu, 01 Jul 2010 01:41:33 +0200, Dr.Ruud wrote:
> > James Egan wrote:
>
> >> Assuming an array named @myfiles contained three elements like:
>
> >> -rwxrwxrwx   1 777   22000   2971201 Jan 24 18:17 file1.zip -rwxrwxrwx
> >>  1 777   22000   2969941 Jan 28 18:10 file2 onespace.zip -rwxrwxrwx   1
> >> 777   22000   2969941 Jan 29 13:28 file3 two spaces.zip
>
> >> I want to extract just the file which contain spaces to work with like:
>
> >> file1.zip
> >> file2 onespace.zip
> >> file3 two spaces.zip
>
> > echo "-rwxrwxrwx   1 777   22000   2969941 Jan 29 13:28 file3 two
> > spaces.zip" |perl -wnle '
>
> >    print substr($_, 50);
> > '
> > file3 two spaces.zip
>
> I should have mentioned that the dates, sizes, names, of the files, might be
> different, so they won't always start at position 50.
>

A split'n-splice perhaps:

my @f = split ' ', $dirline;
splice( @f, 0, 8 );
print qq{@f} if @f > 1;

This'll squeeze down multiple spaces though.
To avoid that:

chomp $dirline;
my @f = split /(\s+)/x, $dirline;
splice( @f, 0, 16 );
print join '',@f,"\n" if @f > 1;

--
Charles DeRykus
From: John Kelly on
On Wed, 30 Jun 2010 23:03:46 -0500, Tad McClellan <tadmc(a)seesig.invalid>
wrote:

>Do you have much experience on Usenet?

I think so. How much do you have?


>If so, and if you truly believe that Uri is a troll,
>then please attempt to exert some self control and don't feed it!

Why don't you ask Uri to ignore me. I'm not important, but he seems
obsessed with me.



--
Web mail, POP3, and SMTP
http://www.beewyz.com/freeaccounts.php