Please reply to the list so everyone can help/learn.
> hi, i am doing a file and i get something like this:
Doing a file? Whuu??
>
> ./home/test
>
> but what i need is someting like
>
> d ./home/test
>
> so i am trying to replace the point with d .so it fits my
> other lines.
> how could i do that?
my $line = './home/test';
print $line;
print "\n";
$line =~ s/^\./d\t\./;
print $line;
OUTPUTS:
./home/test
d ./home/test
Is that what you want? I'm not real clear on how your
getting this data, what it is exactly, and what you want.
HTH
DMuey
>
> THANKS:)
> ----- Original Message -----
> From: "Dan Muey" <[EMAIL PROTECTED]>
> To: "Math55" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> Sent: Tuesday, June 17, 2003 11:15 PM
> Subject: RE: magic open and sed?
>
>
> > hi, can i use this:
>
> Could you explain in words what you are trying to do?
>
> It looks to me like all you want to do is execute command
> line commands which you don't need to open a pipe for.
>
> Try
> qx(du -h -a > /tmp/all 2>/dev/null);
> qx(find -type d sed| s/^\./d \./ >> /tmp/all);
> qx(sort +1 /tmp/all > /tmp/LIST);
>
> This will execute the comands but not doing anythign with
> output from them which is what you where doing before by
> opening a pipe to them.
>
> You can get their output by doing:
>
> my $out = qx(....);
> if($out....
>
> HTH DMuey
>
> >
> >
> > open (DU1,"| du -h -a > /tmp/all 2>/dev/null");
> > open (DU2,"| find -type d sed| s/^\./d \./ >> /tmp/all");
> > open (DU3,"| sort +1 /tmp/all > /tmp/LIST");
> > close(DU1);
> > close(DU2);
> > close(DU3);
> >
> >
> > with magic open? i think sed is not supprted? how can i do exactly
> > this another way? if possible with magic open.
> >
> > THANKS :)
> > .::My homepage::.
> > http://math55.de.vu
> >
> > .::Very good JAVA related site::.
> > http://www.javaCore.de
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
