perl - how to make output of a command a numbered list Post: 302411728

Sponsored Content

Top Forums Shell Programming and Scripting perl - how to make output of a command a numbered list Post 302411728 by durden_tyler on Friday 9th of April 2010 09:46:12 AM

04-09-2010

Registered User

Quote:

Originally Posted by rethink

...
I just wanted to know, in perl, how can i make each line of output from the above coimmand, a selectable option in an interactive perl script, so for example

Code:

# example.pl
 
Please select from the following available servers
 
1) server1
2) server5
3) server7
4) server8
 
enter selection:

is this possible in perl ?

Yes, it is possible in Perl -

Code:

$
$
$ cat -n example.pl
     1  #perl -w
     2
     3  # define the main menu as a multiline string
     4  $main_menu = <<END
     5  Please select from the following available servers
     6
     7  1) server1
     8  2) server5
     9  3) server7
    10  4) server8
    11
    12  END
    13  ;
    14
    15  # print the main menu
    16  print $main_menu;
    17
    18  # prompt for user's choice
    19  printf("%s", "enter selection: ");
    20
    21  # capture the choice
    22  $choice = <STDIN>;
    23
    24  # and finally print it
    25  print "You entered: ",$choice;
    26
$
$ perl example.pl
Please select from the following available servers

1) server1
2) server5
3) server7
4) server8

enter selection: 4
You entered: 4
$
$

tyler_durden

durden_tyler

View Public Profile for durden_tyler

Find all posts by durden_tyler

9 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

add numbered bulletpoints to grep output

I would like to add "word -esque" numbered bulletpoints to the output of a grep search, which has multiple hits for the search term i.e. grep x filename 1) abcd x 2) efgh x 3) ijkl x I dont have a clue to how to start writing such a script, i cant use SED or AWK so i was maybe thinking...

2. Shell Programming and Scripting

perl: looping through the output of a 'system' command

Hi there could anybody point me in the right direction when it comes to looping through the output of a system command in perl (i.e. df -k) doing a test against each line to see if it matches? for example if i have a df -k output like this and I wanted to grab the lines that matched "sda" or...

3. Shell Programming and Scripting

how to read tail -F command output in perl

Hi All, How I will read the output of the tail -F command in perl. I have text file with below contains file1.txt 1 2 3 4 $running=1; sub openLog($) { (my $log) = @_;

4. Shell Programming and Scripting

Perl Parse word from command output

Hello, I used the following script to conect to cisco router: #!/usr/bin/perl use strict; use warnings; use Getopt::Long; use Opsware::NAS::Connect; my($host, $port, $user, $pass) = ('localhost','$tc_proxy_telnet_port$','$tc_user_username$','$tc_user_password$'); my $device =...

5. Shell Programming and Scripting

Output of command in comma separated list

Hi; I have an output of a particular command say $command fstl:r-x ajay:r-x how can i get this in comma separated list, eg: fstl:r-x,ajay:r-x Thnks;

6. Shell Programming and Scripting

Output of a command in perl

Hi All If i run the following command nvidia-settings -V -q screens I get this output X Screen on sutton:0 sutton:0.0 (Quadro FX 4600) Is connected to the following display devices: DELL 2007FP (DFP-0: 0x00010000) Eizo CG243W (DFP-1:...

7. Shell Programming and Scripting

rename numbered files to numbered files with leading zeroes

Hi, I have some hundreds/thousands of files named logX.dat, where X can be any integer, and they are sequential, X ranges between 1 and any number: log1.dat log2.dat log3.dat log6.dat log10.dat ... log6000.dat I would like to rename them to scatter_params_0001.dat...

8. Shell Programming and Scripting

list files command output

Hi All, Below is the 2 different ouputs of the command "ls -lrt", my question is what exactly "total 0" & "total 8" means here ? $ ls -rtl total 0 -rw-r--r-- 1 oracle dba 0 Feb 10 20:16 c -rw-r--r-- 1 oracle dba 0 Feb 10 20:16 b -rw-r--r-- 1...

9. Shell Programming and Scripting

Shell Scripting - Select multiple files from numbered list

I am trying to have the user select two files from a numbered list which will eventually be turned into a variable then combined. This is probably something simple and stupid that I am doing. clear echo "Please Select the Show interface status file" select FILE1 in *; echo "Please Select the...

LEARN ABOUT LINUX

dh_perl

DH_PERL(1)							     Debhelper								DH_PERL(1)

NAME

       dh_perl - calculates Perl dependencies and cleans up after MakeMaker

SYNOPSIS

       dh_perl [debhelperoptions] [-d] [librarydirs...]

DESCRIPTION

       dh_perl is a debhelper program that is responsible for generating the ${perl:Depends} substitutions and adding them to substvars files.

       The program will look at Perl scripts and modules in your package, and will use this information to generate a dependency on perl or
       perlapi. The dependency will be substituted into your package's control file wherever you place the token ${perl:Depends}.

       dh_perl also cleans up empty directories that MakeMaker can generate when installing Perl modules.

OPTIONS

       -d  In some specific cases you may want to depend on perl-base rather than the full perl package. If so, you can pass the -d option to make
	   dh_perl generate a dependency on the correct base package. This is only necessary for some packages that are included in the base
	   system.

	   Note that this flag may cause no dependency on perl-base to be generated at all. perl-base is Essential, so its dependency can be left
	   out, unless a versioned dependency is needed.

       -V  By default, scripts and architecture independent modules don't depend on any specific version of perl. The -V option causes the current
	   version of the perl (or perl-base with -d) package to be specified.

       library dirs
	   If your package installs Perl modules in non-standard directories, you can make dh_perl check those directories by passing their names
	   on the command line. It will only check the vendorlib and vendorarch directories by default.

CONFORMS TO

       Debian policy, version 3.8.3

       Perl policy, version 1.20

SEE ALSO

       debhelper(7)

       This program is a part of debhelper.

AUTHOR

       Brendan O'Dea <bod@debian.org>

8.9.0ubuntu2.1							    2012-06-12								DH_PERL(1)