Hiho,
I've got a variable $sth = `du -sh /home/$whoami`; where $whoami is actually logged user.
I want to have only the size of this directory eg. 2,7G.
I know its lame, but anyway.. how to do it? (2 Replies)
I have a file like this:
host1,neighbor1
host3,neighbor4
host2,neighbor1
host2,neighbor3
host1,neighbor3
host3,neighbor1
host1,neighbor2
host3,neighbor2
I need some PERL magic that will generate output like this:
host1,neighbor1,neighbor3,neighbor2
host2,neighbor1,neighbor3... (3 Replies)
Hello my friends,
So I'm trying to insert some extra text in to text file/lines.
w• Test-LinesXtra: INS ABC 123456 123456
w• Test-LinesXtra: INS DEF 123456 123456
w• TestLinesXtra: 123456 123456
w• TestLinesXtra: 123456 123456
I would like to insert text in in place... (6 Replies)
Hey,
I have 10 lines of text ... And I would like to Insert prefix for each line with static text.
perl -pi -e 's/()/$1 TEST$./' data.txt
Each line will have different static prefix, Code above works perfectly for 1st line ... I'm just not sure how I can run same command for 2nd line 3rd... (4 Replies)
Hello All,
I have been working on a great script to remotely gather server info and store it in a .txt that can be imported to .xls
I have been reading the hostnames that are in the /.shh/known_hosts file so I don't have to mess with passing a password - via ssh (not easy to do , by the... (1 Reply)
I'm in need of help for a project that I'm working on. I believe Perl would be the best way of handling the string manipulation, however, I've barely used perl, and I'm used to BASH scripting. Another note is, this project is in a Windows environment, so I can use Perl, but I do not have shell... (1 Reply)
Hi Folks
Need some help with this and my Perl isnt the hottest I also have text::csv installed on my perl install
The large text with a few million entries is in a format below
example text file
Fig Leafs
Cake No: 0000001
Author: King s.
Record No: 995-34343-232-232... (5 Replies)
perl -MLWP::Simple -le '$s=shift;$c=get("http://genetics.emory.edu/egl/tests/view.php?testid=4125/$s/");$c=~/meta content=(.*?)name=\"Genes\"/msg; print length($1),"\t$1"' "Test Description" >output.txt
I am having trouble with this code: Can it be modified for the desired output? I attached... (3 Replies)
Discussion started by: cmccabe
3 Replies
LEARN ABOUT DEBIAN
tk::optionmenu
Optionmenu(3pm) User Contributed Perl Documentation Optionmenu(3pm)NAME
Tk::Optionmenu - Let the user select one of some predefined options values
SYNOPSIS
use Tk::Optionmenu;
$opt = $w->Optionmenu(
-options => REFERENCE_to_OPTIONLIST,
-command => CALLBACK,
-variable => SCALAR_REF,
);
$opt->addOptions( OPTIONLIST );
# OPTION LIST is
# a) $val1, $val2, $val3,...
# b) [ $lab1=>$val1], [$lab2=>val2], ... ]
# c) combination of a) and b), e.g.,
# val1, [$lab2=>val2], val3, val4, [...], ...
DESCRIPTION
The Optionmenu widget allows the user chose between a given set of options.
If the user should be able to change the available option have a look at Tk::BrowseEntry.
OPTIONS -options
(Re)sets the list of options presented.
-command
Defines the callback that is invokes when a new option is selected.
-variable
Reference to a scalar that contains the current value of the selected option.
-textvariable
Reference to a scalar that contains the text label of the current value of the selected option.
METHODS
addOptions
Adds OPTION_LIST to the already available options.
EXAMPLE
use Tk;
my $mw = MainWindow->new();
my ($var, $tvar);
my $opt = $mw->Optionmenu(
-options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
-command => sub { print "got: ", shift, "
" },
-variable => $var,
-textvariable => $tvar
)->pack;
$opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);
my $f = $mw->Frame(-relief=>'groove', -borderwidth => 2)->pack;
$f->Label(-textvariable=>$tvar)->pack(-side => 'left');
$f->Label(-text => " -> ")->pack(-side => 'left');
$f->Label(-textvariable=>$var)->pack(-side => 'left');
$mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;
MainLoop;
SEE ALSO
Tk::Menubutton, Tk::BrowseEntry
perl v5.14.2 2010-05-29 Optionmenu(3pm)