Search Results

Great news today !
Sysadmins are ok now to authorize Windows shares :)

I thought of it, but sysadmins do not agree for the moment :mad:

Hi,

I'm looking for a Perl module which can recursively list remote Windows shares from within a Linux machine.
I've tried Filesys::SmbClient ans Filesys:SmbClientPars but they just list the...

Hi all,

am running the following code on a RHEL 6.6 box to list which charsets are loaded and which are available:

#!/usr/bin/perl -w
use strict;
use Encode;

my @list =...

Hello RavinderSingh13,



Windows admins create a d:\temp share on my comp server.
I used the following code :


#!/usr/bin/perl -w

use strict;
use Net::SFTP::Foreign;

my $host="comp";...

Hi all,

I am using Perl 5.8.8 on an Aix 6.1.0.0 to script a program which will retrieve files recursively on a remote Windows 2003 server and copy some of them on my Aix server.
MobaSSH is...

Thank You :)

Hi,

I'm trying to customize the ksh prompt for users on a RHEL 6.6 system for having user@host pwd : $ and user@host pwd # in red color for root.

I think it's possible but i do not even...

Great, THANK YOU :)

Hi all,

i have the following line in a record file :

retenu=non
demande=non
script=#vtbackup /path=/save/backup/demande
position=140+70


and i want to use Perl regex to have the...

the array must be declared when using Strict :
my ($record,$header,$i,@fields,%files,$key,@fileLst);

That module is not installed on my Aix system (and am not root ;))

Maybe you can give us an updated vs of the program using that module.
It will be very interesting.

Thank You

Hi there, hereafter the code with the zip output, working good on an Aix system.
Each file name created is stored in an array (@fileLst) and at the end of the program, all files of the array are...

A Perl solution :
#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my ($value,@values,@chars,@sep,$i,@ext,$idx);
my ($startVal,$endVal,$secNegFlg);

@values=split(/,/,$ARGV[0]);
...

Hi Palex,

my native language is french and i hope i've not misunderstood your request.
I'm now at home, testing my solution on an Apple laptop.

The file looks like :
123 45.34
345 67.22
345...

Not sure it's what you're looking for but the following short Perl one-liner can approach it :

%perl -ne 'chomp $_ ; print if /^interface/ ; print "\t$_\n" if /^ip/' file

interface Loopback0 ...

A Perl solution using 2 hastables :
#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = "$cur_dir/$ARGV[0]";
my ($record,@fields,$prefix,%peers,$key,%records);
...

Dear vidyadhar85, i'm not hijacking anything, i'm here to share and learn :)

Let my try again.
Original file is :
19523479811841494432A2013052700000000
19523479811730333980A2013052700000000...

By -F, you are telling awk that the field separator is , and am not seeing any comma in your file .
If your field separator is space, you better run :
awk -F" " ...

Using Perl one-liner
%perl -pe "s/ABC=\d{3}/ABC=456/g" fileABC=456
CDE=122
DEF=456
ABC=456
DED=333
ABC=456

yes, you can use the system command :

system("your zip command here");

Hi,

guessing your file looks like :
Sourcename ID Date Nbr
SU|IMYFDJ|9/17/2012|5552159976555
SU|BWZMIG|9/14/2012|1952257857887
AR|PEHQDF|11/26/2012|0442045903874...

How can you print the 5th column of that file using awk if there is no FS ?

A Perl program doing the job
file025 (tabs have been replaces by spaces):
Sourcename ID Date Nbr
SU IMYFDJ 9/17/2012 5552159976555
SU BWZMIG 9/14/2012 1952257857887
AR PEHQDF 11/26/2012 ...

Can you please try :
awk -F"," ' { print NF-1 } ' file