Recent content by Hemulll

Found solution <code> $octets = $srvTime; $octets =~ s/ //g; $octets = pack "H*", $octets; @date = unpack 'n C6 a C2', $octets; #print Dumper "DEBUG :: @date\n"; print Dumper $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; </code>

Hello All. In Host Resources MIB file has hrSystemDate attribute, that show localtime of server. It possible to get this attribute via SNMP (1.3.6.1.2.1.25.1.2 OID). My problem is: values are in HEX, so, it possible to convert it to string ? or some understandable format ? Examples of HEX...

Thank you Franco for your prompt response!

Hello All, I solve this problem with foreach $key (sort keys %MSS) { my %uniq = map { $_ => 1 } (@{$MSS{$key}}); my @uniqArr = sort keys %uniq; print "\nHierarchicalGroup $key children "; print WRITE "\nHierarchicalGroup $key children "; foreach (@uniqArr) { #print "$_ "; print...

Hello All. I have aditional question about: push @{$x{$arr[0]}}, $arr[1]; This array may be non Uniq, how can I sort this array to Uniq array ? Can i use Map function for this ?

Thank you Kevin.

Hello feherke! Thank you for prompt response!!! This is my final code. while (<FILE>) { chomp; # assuming you not want to keep the ending newline next if $_ =~ m/^\s*$/; # skip blank lines (*) next if $_ =~ m/^,*$/; # (*) my @arr = split(/;/, $_); push...

Hi Feherke. Exactly so, bu i need to create this Hash from Data. For example i Read this file in my script, and create Hash from . I have a trouble with create Uniq hash . open(FILE, "data.csv") || die("Could not open file!"); my %x = (); while (<FILE>) { next if $_ =~ m/^(\s)*$/; # skip...

Hello All. How can create from this List Hash with Uniq Key "MSS1" and list values ATS1,ATS2 ... MSS1;ATS1 MSS1;ATS2 MSS1;ATS3 MSS1;ATS4 MSS2;ATS5 MSS2;ATS6 In my Script i create Hash, but in the Key use only one element of first line, cause this non Uniq. Please Help ...

Thank you Kevin I will try to write this functional with this module

Thanks All.

Hi rharsh! Thank you for response! My issue is how to write this modified file to new one with same structure.

Hello rharsh Thank you for response. I have another question about edge: block, how can i add line to edge block after data manipulation? For example in each edge: block line number 4 has ip addresses, i need to do something with this data and after data manupulation add something to edge...

Hello Kevin! Exactly So, each edge block in text file has 2 sub blocks, geometry and ui. But, file has a lot of edge blocks. edge: 1 { type: 0 source: 1 target: 3 geometry: { values: } ui: { values } } edge: 2 { type: 0 source: 1 target: 3 geometry: { values: } ui...

Hello Perl Gurus. I have a question about , how to read block of text file, for example i have a text file in next format: MR_ManagedObject true 2 LINK-PORT-10.112.32.73/1003<->PORT-10.112.32.81/8026 Switch 10.112.32.73 Switch 10.112.32.81 TrunkCable...