Search Results

$
$ cat -n print_hoh.pl
1 #!/usr/bin/perl -w
2 use strict;
3 my ($result, $name, $activities, $value);
4
5 # Subroutine section
6 sub build_hoh {
7 ...

can you execute the below command and confirm, whether p4 is present.

If it is not there, then check where is your p4 command and use that absolute path

ls -l /u/userk/p4/p4_client/TES_DATE/p4

Under /var/www/html create a soft link to your directory /home/user/test/

$
$
$ cat f23
TARGET DRIVE IO1 IO2 IO3 IO4 IO5
------------ --------- --------- --------- --------- ---------
0a.1.8 266 ...

It simply creates and prints an array, each element of which is a reference to an array of columnar data.

tyler_durden

perl -nle 'print $2 if /(.+?)\|(.*)/' filename

Ok..Try
echo '/u/asak/DATE/TEST_LOGS/20110704_033429_2_shtest11_w_2_120/HDD/test11_w_2_12/hd-120' | sed 's/.*\/[0-9][0-9]*_[0-9][0-9]*_\([^/]*\).*/\1/'

echo $DIR | perl -nle '/(\d+_\d+)([^\/]+)\/HD/; print $1'echo $DIR | perl -nle '/(\d+_\d+)([^\/]+)\/HD/; print $2'

Hi,

Try regexp in this script:

use warnings;
use strict;

while ( <DATA> ) {
chomp;
printf "%s\n", $_ if /^\d+(?:\.\d{1,2})?$/;
}

__DATA__
10
10.0000
10.00
0.00001
0.1
1...

we are simply replacing the HD..........(followed by any number of characters) to HD

sed 's/\/HD\/.*$/\/HD/'

the above sed code looks for the string /HD/ and replace the /HD/.......... to /HD

Try this

perl -pe 's/(.+HD)\/.*/\1/'

If you have it: pkill -t tty

Regards,
Alister