Re: perl for machine learning

Guru CHAS.owens will reply. On 16 Mar 2017 7:08 am, "community tech" wrote: > Today python has so many excellent libraries for ML, the ones we are > checking with, > > 1. sklearn: http://scikit-learn.org/stable/ > 2. Keras 2: https://blog.keras.io/introducing-keras-2.html?t=1 > 3. Theano: http://

Re: Changing the structure of a hash

nto an array of arrays and calculate the transponse. Does that work > for you? > > > On Jun 17, 2015, at 10:48 AM, Anirban Adhikary < > anirban.adhik...@gmail.com> wrote: > > > > Hi List > > > > I have a hash with the following data structure. > > K

Changing the structure of a hash

Hi List I have a hash with the following data structure. KEY=[0]-- VALUE=[57 147 237 327 417 507 597 687 777 867 957 1047 1137 1227 1317 1407] KEY=[1]-- VALUE=[58 148 238 328 418 508 598 688 778 868 958 1048 1138 1228 1318 1408] KEY=[10]--VALUE=[67 157 247 337 427 517 607 697 787 877 967 1057 11

How to check the index positions of an array element in perl in case of multiple occurance

Hi List I need to find the index positions of many elements. For a single occurrence there are many ways to find it. But in my case the element which I am searching for has multiple occurrence. The following is the array from where I have to find the indexes of a specific element say bspwrt. NW

Re: beginners Digest 6 May 2015 07:20:38 -0000 Issue 4811

CN=$_,PCID=" . join ("&", @{$result{$_}}) . ";" for sort keys > %result; > > Outcome is exatly what you want > EARFCN=1900,PCID=0&1&2&4; > EARFCN=1902,PCID=5&6&7&8; > > > ср, 6 мая 2015 г. в 10:25, : > >> >

Perl array question

Hi List I have the following array --- ('1900-0','1900-1','NULL','NULL','1900-2','1900-4','1902-5','1902-6','1902-7','1902-8'); There are two part for each element separated by a dash. first one known as earfcn and second one is pcid . The requirement is For the same “earfcn”, concatenate the “pci

How to parse the following data file

Hi List I have a data file as with the following format ',$Output_File_Name; my $str; my $print_flag = 'N'; my $print_flag_1 = 'N'; while(<$RFH>) { if ($print_flag eq 'Y') { my $line = $_; chomp($line);

Re: How to handle null elements inside an array

gt; 2 0 31 1 >> >> '; >> >> >> my @input_lines = split /\n/, $input; >> >> >> >> foreach my $line (@input_lines) { >> >> next unless $line; >> >> my $dev = substr($line, 10,

How to handle null elements inside an array

Hi List I would like to process a file which has the following structure. SCGR SC DEVDEV1 NUMDEV DCP STATE REASON 10 31 1 SCGR SC DEVDEV1 NUMDEV DCP STATE REASON 20

Re: Spliting and creating small files from a main files based on line number

next index value. On Wed, Mar 25, 2015 at 11:31 PM, Shlomi Fish wrote: > Hi Anirban, > > On Wed, 25 Mar 2015 22:37:39 +0530 > Anirban Adhikary wrote: > > > Hi List > > I have a configuration file and I would like to split the main file into > > multiple small fil

Spliting and creating small files from a main files based on line number

Hi List I have a configuration file and I would like to split the main file into multiple small files and push the small temp. files into an array. My config file looks like this GRC01;8;8;1;1;323U6_SIU-8;2048;2048;20;0;OFF GRC01;12;12;2;2;134S1_SIU-12;2048;2048;20;0;OFF GRC01;25;25;3;3;016S1_SIU-

Re: How to sort a file based on numerical values exists in each line

44 PM, Jim Gibson wrote: > > > On Mar 24, 2015, at 3:42 AM, Anirban Adhikary < > anirban.adhik...@gmail.com> wrote: > > > > Hi List > > I have a file like this. > > RXMOI:MO=RXOTRX-473-0,SC=0,DCP1=178,SIG=SCCONC,DCP2=179&&186,TEI=0; > > RXMOI

Re: How to sort a file based on numerical values exists in each line

nt_hash) { print "($key)->($file_content_hash{$key})\n"; } Please let me know if there is more good ways (performance wise since I have to do this operation on lot of files) to complete the task. [?] I am sure there are lots of good ways to complete this task. Best Regar

How to sort a file based on numerical values exists in each line

Hi List I have a file like this. RXMOI:MO=RXOTRX-*473-0*,SC=0,DCP1=178,SIG=SCCONC,DCP2=179&&186,TEI=0; RXMOI:MO=RXOTRX-*473-5*,SC=0,DCP1=223,SIG=SCCONC,DCP2=224&&231,TEI=5; RXMOI:MO=RXOTRX-*473-1*,SC=0,DCP1=187,SIG=SCCONC,DCP2=188&&195,TEI=1; RXMOI:MO=RXOTRX-*473-9*,SC=0,DCP1=259,SIG=SCCONC,DCP2=26

Re: XML::Twig Question

One thing forget to mention in the 2nd case I only able to print the value of id after removing of *xn: *from the beginning of the line.NO print for gci_sai and locationNumber . On Wed, Sep 5, 2012 at 8:26 PM, Anirban Adhikary wrote: > Hi List, > I have a XML file which looks like as f

XML::Twig Question

r'); print $locationNumber,"\n"; $twig->purge; } $twig->parsefile("C:/Users/eamasar/Desktop/xnm/data/WA07B/input/MSCServerCell_201209050400.E2G.xml"); ANd when I am removing the xn: from the begining of the line from XML file it prints the values on screen. Thanks & Regards in advance Anirban Adhikary.

Re: Perl script not executing from cron job

Hi All, I have found the solution. I need to write a line to top of my code and its works. use Lib "Path to your perl code"; then I can run this perl code directly from crontab I dont need a shell script to call the perl code. Thanks Anirban Adhikary. On Tue, Mar 27, 2012 at 7:4

Perl script not executing from cron job

the code is not running. Best Regards Anirban Adhikary.

Re: XML::Twig Doubt

Thanks a lot Rob for your nice help. Best Regards Anirban Adhikary. On Tue, Mar 20, 2012 at 4:38 PM, Rob Dixon wrote: > On 19/03/2012 14:45, Anirban Adhikary wrote: > >> On Mon, Mar 19, 2012 at 7:41 PM, Rob Dixon wrote: >>> >>>> >>>> XML::Twig use

Re: XML::Twig Doubt

ort. Best Regards Anirban Adhikary. On Mon, Mar 19, 2012 at 8:15 PM, Anirban Adhikary < anirban.adhik...@gmail.com> wrote: > Hi, > When I am trying to print the value against the tag ALPHA it is not prints > anything,though it is not showing any warnings. > > > use stric

Re: XML::Twig Doubt

rint $bsc->id, "\n"; my $alpha = $bsc->field('ALPHA'); print $alpha, "\n"; $twig->purge; } $twig->parsefile(ISProducts.xml'); On Mon, Mar 19, 2012 at 7:54 PM, Anirban Adhikary < anirban.adhik...@gmail.com> wrote: > Hi Rob, > Thanks for yo

Re: XML::Twig Doubt

Hi Rob, Thanks for your support.The code does exactly what I want . Can you please suggest me a tutorials with good examples on XML::Twig. Another thing can you please explain me this line in the code my($twig, $bsc)= @_; Best Regards Anirban Adhikary. On Mon, Mar 19, 2012 at 7

XML::Twig Doubt

using XML::Twig. Since the xml file is quite large I like to print the value of id using a loop. Best Regards Anirban Adhikary.

Re: XML parsing question

TER=[0] COUNTER=[0] COUNTER=[0] COUNTER=[0] COUNTER=[0] COUNTER=[0] COUNTER=[0] On Thu, Mar 15, 2012 at 8:31 PM, Anirban Adhikary < anirban.adhik...@gmail.com> wrote: > Hi List , > I have a xml file which looks like > > > 10 > 1,3,4,7 > 12,16,21

XML parsing question

Hi List , I have a xml file which looks like 10 1,3,4,7 12,16,21 2,3,3 1,3,6,8 12,17,25 50 AMI_BRANLY_B_1 10 1,3,4,7 12,16,21 2,3,3 1,3,6,8 ON ON 0 I need to create a new xml file from

Fwd: XML QUERY

need two use for these two tasks. The actual CSV file and XML files both are is very large in size thats why I am providing some lines for this file. Best Regards Anirban Adhikary. !BSC,Species,Path,Name,Mark,Comment,timeStamp.emg.date,timeStamp.emg.time,timeStamp.tg.date,timeStamp.tg.time

unit test case for this perl code

Hi I have write the following code and Now I have been asked to write a unit test case for this code. But neither I have  any idea how to write a unit test case nor I have ever experience with it. So in this case I am asking your help. #!/usr/bin/perl ### ## The program is called by main.pl ##

timestamp with milisecond

Hi List Is it possible to get the current time_stamp with milisecond format like HH:MI:SS:NNN DD:MM:(NNN is the milisecond) If yes then how can I achieve the same.. Thanks & Regards in advance Anirban Adhikary. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org

perl code for if-elsif-else logic

}else { push(@listed,$fname); } } for(@listed) { print $_,"\n"; } prefix,suffix and midfix can be defined and can not be. So in the above scenario file ABCD_1234.txt should not be select

Re: REGEX Explanation

sure.. On Fri, Apr 8, 2011 at 1:29 PM, Uri Guttman wrote: > > please always reply to the list. resend that to the list. > > uri > > -- > Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com -- > -  Perl Code Review , Architecture, Development, Traini

REGEX Explanation

Hi list Can anybody please explaing the meaning of the following regular expression my $x = '12abc34bf5'; @num = split /(a|b)+/, $x; print "NUM=@num\n"; NUM=12 b c34 b f5 Does it mean split the string ,here separaters are 'a' or 'b'(one or more occurance because of + metacharacter). If it matc

Re: parsing a delimited file

I want to create a new file where I get each line like KEY=VALUE In the source file in a single line the are multiple KEY-VALUE pair and there is also some line where KEY VALUE pair spreads across two lines. On Fri, Apr 1, 2011 at 4:49 PM, John W. Krahn wrote: > Anirban Adhikary wrote: >&

Re: parsing a delimited file

> > > > >>foreach my $key (keys %field ) { >>print "KEY=[$key]--VALUE=[$field{$key}]\n"; >>} >> } >> >> But I am not getting the desired result. >> >> Thanks & Regards in advance >> Ani

parsing a delimited file

d = /(.*?):(.*?)/mg; foreach my $key (keys %field ) { print "KEY=[$key]--VALUE=[$field{$key}]\n"; } } But I am not getting the desired result. Thanks & Regards in advance Anirban Adhikary. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.or

Query related to PAR::Packer

acker module installed (and I should not be allowed to install PAR::Packer on target machines) Is it possible that I archived the source package in a linux machine and run it successfully in the target machines which can be Solaris,AIX, or HP-UX? Thanks & Regards Anirban Adhikary.

DBD::Oracle error

Hi list when I am running a perl code which uses DBI and DBD::Oracle I am getting the following error DBD::Oracle initialisation failed: Undefined subroutine &DBI::common::STORE called at /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/Oracle.pm line 68. at ctva/data/libora.pm line

Code is executing but not getting the desired output

$line =~ /^$/; my($firstval,$secondval) = $line =~ /^(.*?):-:(.*?)$/; print "firstval = $firstval \n"; if ($firstval ne /^$progname_abs_path$/) { seek($WFH1, 0, 2); print $WFH1 "$progname_abs_path:-:$$\n"; } } close($WFH1); } Thanks & Regards Anirban Adhikary

application level cluster implementation

uot;$scriptname was stopped It has been started by ","$home \n" ; } } } } #check $watch->[0] is a alive #if not start $watch->[1] and put its pid in $watch->[0] } sleep 1; } # With regards Anirban Adhikary.

Forking in Perl code

Hi List I am trying to write a code which will work as self monitoring script. The parent will work for something and child will check that parent program is running or not . If parent is not running or somehow killed or crashed then child will restart the parent . But I am not getting the desire

Perl code for comparing two files

r += 1; return (\...@file_content_mod,$counter); } } But when I am entering 3 file names as argument this is not working.It is working properly though I am using another file $output_file_mod> It was only written the similar lines between two compared files where it should be written the common lines of two compared files as well as lines which were not present in the last file but present in the $output_file. I was trying to use open my $output_fh, "+>>", $output_file or die "could not open $output_file: $!"; syntax but it was not working.) Thanks & Regards in advance Anirban Adhikary.

Re: network program for copying file from a remote machine

I am not able to use any module . On Thu, Feb 26, 2009 at 2:05 PM, Yogesh Sawant wrote: > On Thu, Feb 26, 2009 at 1:47 PM, Anirban Adhikary < > anirban.adhik...@gmail.com> wrote: > >> Dear list >> I want to write a program which can cop

network program for copying file from a remote machine

Dear list I want to write a program which can copy files from remote machine ( like scp) using perl network programming.Is it possible to create such program? If yes then can you give me some examples or tutorials web site name from where I can proceed. Thanks & Regards Anirban Adhikary.

Sorting a file dynamically

$_ } sort { "$str_name" }...@a; ## the $str_name prints# $a->[1] cmp $b->[1] or $a->[2] cmp $b->[2] or $a->[3] cmp $b->[3] But when I run the program this gives following error Sort subroutine didn't return a numeric value at test1.pl line 28 Please Suggest Thanks & Regards Anirban Adhikary.

Question related Join function

Dear List I have doubt about the exact working of join function. I have written the following small code use strict; use warnings; my @array= join ("-k", @ARGV ); print "@array\n"; I am running the program as follows which producing the following output [anadhik...@strawberry test_prog]$ perl te

Re: data and script in same location, how to write it down

Just write the fiilename as us script and file to open are in same location. my $filename="datafile.txt "; open my $FH,'<', $filename || die "no such files $!\n"; Regards Anirban Adhikary. On Sun, Dec 14, 2008 at 7:51 PM, itshardtogetone < itshardtoget...@ho

convertion from a scalar to an array

le to convert $err into any of the above mentioned array/arrays according to user input? Is it possible? So that i can print the values of the above array/arrays in a foreach loop? Thanks & Regards in advance Anirban Adhikary.

flock related problem

try to open the file and lock it will create a child process which will do all the work and the control will go outside the while loop and program will do rest of the jobs. Thanks & Regards in advance Anirban Adhikary.

Re: help me in rearranging line numbers in a file

Is this your homework??? On Fri, Nov 21, 2008 at 5:19 PM, Gowri Chandra Sekhar Barla, TLS, Chennai < [EMAIL PROTECTED]> wrote: > > Hi all > > Please help me in rearranging line numbers in a file > > Example" > > File.txt > 1 ghghjghjg > 2 1hjkhkjh > 3 > 4 .macro TTT offset > 5 TTT 200 >

Re: Can't get desired o/p with this code

Is installed in system\n"; } elsif(eval "`which abc 2>>/dev/null`;0") { print "No perl Installed\n";} Thanks & Regards in Advance Anirban Adhikary. On Wed, Nov 5, 2008 at 9:22 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Wed, Nov 5, 2008 at 01:0

Can't get desired o/p with this code

am aware of using * ExtUtils::Installed* in this scenario but I don't want to use any module. Thanks & Regards in advance Anirban Adhikary

Re: perl reg. exp. (search and replace)

use strict; use warnings; my $string="fsdfsdfsdf fsdfsdfsdf"; my ($a,$b)=split(/\s+/,$string); my $new_string=$a."_".$b; print $new_string."\n"; Regards Anirban Adhikary. On Mon, Nov 3, 2008 at 2:15 PM, John W. Krahn <[EMAIL PROTECTED]> wrote: &g

taking a total line from a filehandel

ikary/perl/file1.txt"; open my $FH,'<',$fname; while(<$FH>) { my ($line)=split(/\s+/,$_); print $line."\n"; } close($FH); But this code prints only the first words of every line Where I am making the mistake??? Thanks&Regards in advance Anirban Adhikary.

Re: What wrong with this code

Thanks a lot John . I have a little question can u please dexcribe in detail what this line is doing actually unless ( $seen{ $_ }++ ) Thanks & regards in advance Anirban Adhikary On Mon, Aug 25, 2008 at 5:34 PM, John W. Krahn <[EMAIL PROTECTED]> wrote: > Anirban Adhikary wrote: &

What wrong with this code

getting some horrible output so I am using numeric comparison. 3)If I am giving print the $element variable outside foreach loop it is getting printed but Inside foreach loop it is not showing anything. Can anybody Please suggest me where I am making the mistake? Thanks & Regards in Advance Anirban Adhikary.

Re: Script neeed for creating home directories for each student!!

You can do one thing you just add the following lines at end of the while loop like this The lines in bold character are newly added And one more thing when u will creating the home directory of the users then u have the write ownership on /mnt/btech directory. Regards Anirban Adhikary. use

Re: Perl Script Needed Urgently.!!

Hi Jyotishmaan Ray U can do the task in the following way but there may be some other good and compact way. The source file is the file where uid and user password are written but one thing in the source file u need to keep uid and user passwd in the same line. like this s08-1-5-093 $1$2P6e6U

Re: how to round off a decimal to the next whole number

using > splice , then add one. > > Thanks > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > http://learn.perl.org/ > > > Just use split function like this my $val= 0.123; my($a,$b)=split(/\./,$val); my $final=($a+1); print "$val=$final"."\n"; Thanks & Regards Anirban Adhikary

Re: Getting warning message while running the following code

Thanks U all for this support. I not only get the solution but I also learned some great things. Thanks a lot list.. Regards Anirban Adhikary. On Fri, Aug 1, 2008 at 4:33 PM, John W. Krahn <[EMAIL PROTECTED]> wrote: > Mr. Shawn H. Corey wrote: > >> On Fri

Getting warning message while running the following code

tring in void context at processcheck.pl line 8. But while I am commenting the line 8 and uncommenting the the line 6, 7 and 9 and then running this script I am not getting any warning message. Where I am making the mistake? Thanks & Regards in advance Anirban Adhikary.

Re: uninstalling perl

My os is kernel version is 2.6.9-67.0.15.ELlargesmp OS is GNU/Linux perl version is 5.8.5 On Mon, Jul 14, 2008 at 3:05 PM, Amit Saxena <[EMAIL PROTECTED]> wrote: > Which OS you are using and what's the version of Perl ? > > > On Mon, Jul 14, 2008 at 3:02 PM, Anirban Adhika

Re: uninstalling perl

> Amit Saxena > > > On Mon, Jul 14, 2008 at 2:42 PM, Anirban Adhikary < > [EMAIL PROTECTED]> wrote: > >> Dear list >> >> If I want to remove perl from my linux/unix machine then what is the >> procedure for this? >> >> Thanks & Regards in advance >> Anirban Adhikary. >> > >

uninstalling perl

Dear list If I want to remove perl from my linux/unix machine then what is the procedure for this? Thanks & Regards in advance Anirban Adhikary.

Re: retaining first value, joining with the rest of the row values ?

y $el(@arr) { print LS ((split/,/,$el)[1]).",".((split/,/,$el)[2])."\n"; } close(LS); Thanks & Regards Anirban Adhikary. On Sat, Jul 12, 2008 at 10:54 AM, Erasmo Perez <[EMAIL PROTECTED]> wrote: > Hi dear Perl list: > > I would like to thank you fo

Re: Handling ignore case and single line in pattern matchin

rap>ACC<\/td>(.*?) / > > -Original Message----- > From: Anirban Adhikary [mailto:[EMAIL PROTECTED] > Sent: Friday, July 11, 2008 2:12 PM > To: beginners@perl.org > Subject: Re: Handling ignore case and single line in pattern matchin > > Please give us an example other

Re: Handling ignore case and single line in pattern matchin

Please give us an example otherwise how could we know what u exactly want. On Fri, Jul 11, 2008 at 1:53 PM, Manasi Bopardikar < [EMAIL PROTECTED]> wrote: > Hi, > > Does anyone know how to handle ignore case(i) and single line(s) on a > regular expression. > > > > Thanks and Regards, > > Manas

Array indexing question

ika pts/7anadhikary.in.co 13:50 10.00s 0.12s 0.12s -bash I need to extract the idle column. But using my code I am getting output like this pts/4 pts/5 Where I am making the mistake please rectify. Thanks & Regards in advance Anirban Adhikary

Re: perl module version checking

Hi I am very very sorry for questioning like an idiot. Please forgive me for such a silly question. Thanks & Regards in advance Anirban Adhikary. On Thu, Jul 10, 2008 at 11:55 AM, Anirban Adhikary < [EMAIL PROTECTED]> wrote: > > Hi > Can u please tell me where i need to use

Fwd: perl module version checking

Hi Can u please tell me where i need to use ' instead of " and what will be the syntax of that string. Because when I am using perl -MDBI -e "print $DBI::VERSION;" on my linux system I am not getting any output but the second option is working fine. Thanks & Regards in

perl module version checking

Dear List Can U please tell me how to check the version of any installed module in perl. If I want to check the version of version of DBI module then what is the syntax for it? Thanks & Regards in advance Anirban Adhikary

Re: Binary to Text/ASCii conversion

into some text/ascii format.. We are in a confused state. Please help Thanks & regards Anirban On Mon, Jun 16, 2008 at 7:47 PM, Jenda Krynicky <[EMAIL PROTECTED]> wrote: > From: "Anirban Adhikary" <[EMAIL PROTECTED]> > > Dear List > > > >

Binary to Text/ASCii conversion

Dear List Is there any way to conversion from binary file to ascii/text file in perl? is there any perl module which works like this? Thanks & Regards in Advance Anirban Adhikary

perl 5.8.8 installation

the upgradation of perl. Now my question if i want to upgrade to perl 5.8.8 is there any chance of data loss and how do I upgrade it i.e. from 5.6.1 to 5.8.8 ? what are the steps for this upgradation procedure ??? Thanks & Regards in advance Anirban Adhikary.

csv file question

uot;,"2","7" "C","2","8" " ","3","9" Now I want to implement a logic which will show me the summarize records as follows col1 count A- 2 B - 2 C - 2 D - 1 and one more question how the null value will be handled Thanks & Regards Anirban Adhikary.

Re: perl source code encryption

/Bytecode.pm perl -MO=Bytecode,-H,-b,-k,-orundbload rundbload.pl On Wed, Apr 30, 2008 at 11:01 AM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Wed, Apr 30, 2008 at 1:11 AM, Anirban Adhikary > <[EMAIL PROTECTED]> wrote: > > Dear list > > I want to encrypt my perl source

perl source code encryption

Dear list I want to encrypt my perl source code. I am using some modules in my code. Among them some are downloaded from CPAn as well as some are written by my -self. So how to encrypt all perl codes includes the modules. Thanks&Regards in advance Anirban Adhikary

perl byte code generation

more thing is there any good free third party tool available for this type of job ? Thanks & Regards in advance Anirban Adhikary.

DATA Transfer from a remote machine :: which one is best SCP or VSFTPD

files most probably changes time by time . So now please tell me which one is good options can be used in this situation SCP or VSFTPD? I need a secure and fast data transfer. Thanks & Regards in Advance Anirban Adhikary.

Re: Client-Server Architecture script

server console . I am posting my code here U guys pls help me how to solve these problems. Thanks & Regards in advance Anirban Adhikary. *THE SERVER SCRIPT *# #!/usr/bin/perl use IO::Socket; use IO::Select; my @sockets

Re: Client-Server Architecture script

implement such architecture by using these two modules? If u people know some good tutorials related with this type of architecture then please let me know. If I get any example code available related with this architecture from ur side I will be highly privileged. Thanks & Regards In Advanc

Client-Server Architecture script

get u people's help I will be highly obliged. Thanks&Regards in advance Anirban Adhikary.

Pattern matching problem

ped: 0 *->* Total logical records read: 4830 Total logical records rejected:51 Total logical records discarded: 4760 ---> these are the four lines i need to extract.* Run began on Tue Feb 05 10:58:04 2008 Run ended on Tue Feb 05 10:58:04 2008 Elapsed time was: 00:00:00.28 CPU time was: 00:00:00.11 Thanks & Regards in advance Anirban Adhikary.

Re: Hash Sorting Problem

Dear List I need to delete each element after every execution of the foreach loop and I need to update & sorted the @arr1 after every execution of the foreach loop. I have tried a lot but not able to do this Pls help... Thanks & Regards Anirban Adhikary On Mon, Feb

Hash Sorting Problem

', '11' ]; The 101 is removed from the sorted list After sorting the array elements are $VAR1 = [ '14', '11' ]; In the last output I think the list is not sorted properly. How can I solve this problem. Thanks&Regards in Advance Anirban Adhikary.

Executing a unix command using file-handle

S); foreach(@arr) { @arr1 = split(/ /,$_); } foreach $perm (@arr1) {print "$perm\n"; } I am getting the last entry from ls -l listing. How can I get the entire listing of ls -l command's output in an array?? Thanks & Regards In advance Anirban Adhikary.

JVM thread monitoring

Dear list Is it possible to check the %CPU,%MEM usage of each thread produced by a JVM by using a perl script??? If yes then is there any particular module for it? If there is any link available for the above question over the web then pls let me know Thanks&Regards Anirban Adhikary.

Perl Script for Network bandwidth consumption by a particular Application

= (split/:/,$in)[1]; } close DEV; return $in+$out; } but if i want to check network bandwidth consumption by a particular application i.e. oracle or java by using this script or some other script written in perl then how to do this? Thanks & Regards in Advance Anirban Adhikary.

Perl Script for Network bandwidth consumption by a particular Application

= (split/:/,$in)[1]; } close DEV; return $in+$out; } but if i want to check network bandwidth consumption by a particular application i.e. oracle or java by using this script or some other script written in perl then how to do this? Thanks & Regards in Advance Anirban Adhikary.

[EMAIL PROTECTED]

= $#arr2; for($i=0;$i<=$length;$i++) { chomp; $val=$arr2[$i]; #print $val."\n"; @arr = split(/\s+/,$val); print $arr[1]."\n"; But I am not getting the desired output. Thanks & Regards in advance Anirban Adhikary.

SNMP

Dear List I want to write a system monitoring script using SNMP protocol. So for that reason I need a sample script in PERL using NET::SNMP module of SNMP agent as well as SNMP manager. Regarding this if I get any help from you people I will be highly obliged. Thanks&Regards in advance Ani