perl-module

问题 I have an array like this @array = ( 1, some 9-digit number-1, some 9-digit number-2, 2, some 9-digit number-3, some 9-digit number-4 .....and so on ); Now I want to print this in a table as 1 some 9-digit number-1 some 9-digit number-2 2 some 9-digit number-3 some 9-digit number-4 3 some 9-digit number-5 some 9-digit number-6 I also want to print the table to a text file. What logic would be the best ? Thanks 回答1: I figured it out. I used Text::Table Thanks – John F use Text::Table; my $tb =

问题 I want to create a UniqueId . Is there a function I can call, such that every time when I use that it will give me a new Id, always with a different value? 回答1: The better way you can use this also use UUID::Generator::PurePerl; sub create_search_id { my $this =shift; my $args=shift; my $ug = UUID::Generator::PurePerl->new(); my $uuid1 = $ug->generate_v1(); return $uuid1; } From here you can learn about Link 回答2: Use Data::UUID to generate unique IDs: use Data::UUID; $ug = Data::UUID->new;

问题 I am very new to Perl language. How to convert the UUID to date format 2011-04-22 ? For example, I have UUID like this 118ffe80-466b-11e1-b5a5-5732cf729524 . How to convert this to date format? 回答1: The module UUID::Tiny has a method called time_of_UUID() that might help: time_of_UUID() This function accepts UUIDs and UUID strings. Returns the time as a floating point value, so use int() to get a time() compatible value. Returns undef if the UUID is not version 1. my $uuid_time = time_of_UUID

问题 I am very new to Perl language. How to convert the UUID to date format 2011-04-22 ? For example, I have UUID like this 118ffe80-466b-11e1-b5a5-5732cf729524 . How to convert this to date format? 回答1: The module UUID::Tiny has a method called time_of_UUID() that might help: time_of_UUID() This function accepts UUIDs and UUID strings. Returns the time as a floating point value, so use int() to get a time() compatible value. Returns undef if the UUID is not version 1. my $uuid_time = time_of_UUID

问题 Closed. This question is off-topic. It is not currently accepting answers. Want to improve this question? Update the question so it's on-topic for Stack Overflow. Closed 6 years ago . I have 2 options. One is that I have a array that has a list of IPs. For example my @Ip=(); # array that has the IPs below in it Sample input: 108.0.0.30 108.0.0.30 108.0.0.30 192.168.1.1 192.168.1.2 10.0.0.1 I need a program that can sort such an array and tell which network class and subnet mask it is. For

问题 I've been trying to install the IPTables module for perl http://metacpan.org/pod/IPTables::IPv4 and I've been running into errors during installation. I've tried installing using the CPAN in shell as well as downloading the tarball form the link above. Both installation give me errors. I am not sure how to get the dump from CPAN but what I can get is a dump of my shell when I run the MAKE file from the tarball: [root@localhost IPTables-IPv4-0.98]# make make -C libiptc/ all make[1]: Entering

问题 I have a CSV file my.csv with this content: abc,yyy efg,zzz zsc,vvv uvw,ggg Depending upon the value in variable $X I need to read from that particular value until the end of the file. For example: If $X = efg , the output would be: efg,zzz zsc,vvv uvw,ggg For $X = zsc : zsc,vvv uvw,ggg This is the script I developed, which reads in a CSV file's whole content and displays it: use strict; use warnings; open(my $data, '<', $file) or die "Could not open '$file' $!\n"; while (my $line = <$data>)

问题 I have a CSV file my.csv with this content: abc,yyy efg,zzz zsc,vvv uvw,ggg Depending upon the value in variable $X I need to read from that particular value until the end of the file. For example: If $X = efg , the output would be: efg,zzz zsc,vvv uvw,ggg For $X = zsc : zsc,vvv uvw,ggg This is the script I developed, which reads in a CSV file's whole content and displays it: use strict; use warnings; open(my $data, '<', $file) or die "Could not open '$file' $!\n"; while (my $line = <$data>)

问题 I have a CSV file my.csv with this content: abc,yyy efg,zzz zsc,vvv uvw,ggg Depending upon the value in variable $X I need to read from that particular value until the end of the file. For example: If $X = efg , the output would be: efg,zzz zsc,vvv uvw,ggg For $X = zsc : zsc,vvv uvw,ggg This is the script I developed, which reads in a CSV file's whole content and displays it: use strict; use warnings; open(my $data, '<', $file) or die "Could not open '$file' $!\n"; while (my $line = <$data>)

问题 I have created a function which essentially logs into a router,executes a command, parses the command output and prints the Peer status and Peer ip Function returns the values as expected. In addition to status and peer ip if i want to return 3 more values say for eg: $session_id, $session_state and $time. How do I do that with hash ? I want the function to return all the five values in a Hash. sub session_status { my ($self,$interface_name) = @_; my $status = 0; my $peer_ip = 0; #command to