Shell Programming and Scripting

Oops, I made a flaw.
Of course you would further need to split or pattern match the value of $ENV{user_info}

Code:

$ (user_info="abc /def/ghi/abc" perl -le '$my_path=(split/\s+/,$ENV{user_info})[1];print $my_path' $user_info)
/def/ghi/abc

Hi There,
I am getting a vieared problem while building my code: problem is as follow:
/usr/lib/dld.sl: Call to mmap() failed - TEXT /oravl01/oracle/9.2.0.7/lib32/libclntsh.sl.9.0
/usr/lib/dld.sl: Not enough space
Abort (core dumped)
any body have idea how to resolve it?

Hi There,

I am writing a perl script in which i want to do something like this:

for $line ( `cat /etc/passwd | grep 'sbcuser'`){
print "1. Hi $line \n";
$usr=`cut -f1 -d':' $line`;
$fs=`cut -f6 -d':' $line | xargs dirname`;
%user=( "$usr" => $fs);
}

but i am getting error while executing this peace of code.

Any idea what i am missing?

Code:

#!/usr/bin/perl
open FH , "/etc/passwd" ;
while( <FH> ){
if( /^sbcuser/ )
{
print "1. Hi $_ \n";
@F=split /:/;
$usr=$F[0];
$F[5] =~ s,/[^/]+$,,;
$fs=$F[5];
%user=( "$usr" => $fs);
}
}