I'm trying to check if files already exist in a directory. They have the same basename (exsyctr1), but 4 different extensions. If the files exist, then I make backups of them, then copy them from another directory ($livecomp/data) to the current one ($copycomp/data). If they don't exist, just... (5 Replies)
can someone tell me the meaning of this commnad,
If you want to see a grand total of CPU time for a program when it finishes running, you can use the time command. At the Unix prompt, enter:
time java myprog
Replace myprog with the name of the program you are running. The following is an... (1 Reply)
Howdie everyone...
I have a shell script RemoveFiles.sh
Inside this file, it only has two commands as below:
rm -f ../../reportToday/temp/*
rm -f ../../report/*
My problem is that when i execute this script, nothing happened. Files remained unremoved. I don't see any error message as it... (2 Replies)
whoami | grep < $1 | echo $1
trying to write a script that finds out who the user is and then takes occurences of that username from a file that is passed as an argument and then displays it (6 Replies)
Hi falks,
I need to dispaly a list of only directories .
As it written in the manual ,the command to do it is 'ls -d'.
When i issue 'ls -d' i'm getting:
tornado.orca.ent:DB10g :/home/oracle/Create_Database > ls -d
.
Is anyone have any idea why id does not display directories ,or maybe... (11 Replies)
I have a client machine that was built and loaded with SCO UNIX 2.1.3, (yes it is old). The machine worked fine on the closed network that I tested on in my shop. I then had to change it to the network that it would be connected to. Below is the host file, router and subnet mask file that I usually... (0 Replies)
My script work on Linux but not work in sun os.
my script.
logFiles="sentLog1.log sentLog2.log"
intial_time="0 0"
logLocation="/usr/local/tomcat/logs/"
sleepTime=600
failMessage=":: $(tput bold)Log not update$(tput rmso) = "
successMessage="OK"
arr=($logFiles)... (7 Replies)
hi all. and sorry for the random question, but this sparkled a raging flame-war at work and i want more points of view
situation
a router, with linux of some sort,
dhcp client requesting for ip in wan1 (as usual with wan ports)
dhcp server listening in lan1, and assigning ip (as usual... (9 Replies)
Discussion started by: broli
9 Replies
LEARN ABOUT DEBIAN
devel::beginlift
Devel::BeginLift(3pm) User Contributed Perl Documentation Devel::BeginLift(3pm)NAME
Devel::BeginLift - make selected sub calls evaluate at compile time
SYNOPSIS
use Devel::BeginLift qw(foo baz);
use vars qw($i);
BEGIN { $i = 0 }
sub foo { "foo: $_[0]
"; }
sub bar { "bar: $_[0]
"; }
for (1 .. 3) {
print foo($i++);
print bar($i++);
}
no Devel::BeginLift;
print foo($i++);
outputs -
foo: 0 bar: 1 foo: 0 bar: 2 foo: 0 bar: 3 foo: 4
DESCRIPTION
Devel::BeginLift 'lifts' arbitrary sub calls to running at compile time - sort of a souped up version of "use constant". It does this via
some slightly insane perlguts magic.
import
use Devel::BeginLift qw(list of subs);
Calls Devel::BeginLift->setup_for(__PACKAGE__ => @list_of_subs);
unimport
no Devel::BeginLift;
Calls Devel::BeginLift->teardown_for(__PACKAGE__);
setup_for
Devel::BeginLift->setup_for($package => @subnames);
Installs begin lifting magic (unless already installed) and registers "${package}::$name" for each member of @subnames to be executed when
parsed and replaced with its output rather than left for runtime.
teardown_for
Devel::BeginLift->teardown_for($package);
Deregisters all subs currently registered for $package and uninstalls begin lifting magic is number of teardown_for calls matches number of
setup_for calls.
setup_for_cv
$id = Devel::BeginLift->setup_for_cv(&code);
Same as "setup_for", but only registers begin lifting magic for one code reference. Returns an id to be used in "teardown_for_cv".
teardown_for_cv
Devel::BeginLift->teardown_for_cv($id);
Deregisters begin lifting magic referred to by $id.
AUTHOR
Matt S Trout - <mst@shadowcatsystems.co.uk>
Company: http://www.shadowcatsystems.co.uk/ Blog: http://chainsawblues.vox.com/
LICENSE
This library is free software under the same terms as perl itself
perl v5.14.2 2012-04-22 Devel::BeginLift(3pm)