1. There is no switch case feature in perl by default. So you may have to use if-elsif-else blocks. Or you could install the Switch.pm module and use switch case.
2. To pass option to Vmax lib:
in main.pl:
in Vmax.pm:
Please correct me if you find a better method. Thanks.
This User Gave Thanks to balajesuri For This Post:
I've been wondering if I can make mutexes much easier to use in C++ with creative use of a locking class and variable scope, but I'm not sure if things happen in the order I want. Here's pseudocode for something that could use the class:
int someclass::getvalue()
{
int retval;
... (0 Replies)
Hi,
I am stuck while developing a shell sub-routine which checks the log file for "success" or "failure". The subroutine reads the log file and checks for key word "success", if found it set the variable (found=1). It returns success or failure based on this variable.
My problem is, I can... (2 Replies)
Hi All,
I am new to unix shell scripting,
in the below script "num" is an input file which contains a series of numbers example :
2
3
5
8
I want to add the above all numbers and want the result finally outside the while loop. it prints the value zero instead of the actual expected... (13 Replies)
Hi,
I want to know about the variable scope in shell script.
How can we use the script argument inside the function?
fn () {
echo $1 ## I want this argument should be the main script argument and not the funtion argument.
}
also are there any local,global types in shell script?
if... (3 Replies)
cat test.ksh
#!/usr/bin/ksh
VAR="Dear Friends \n How are you? \n Have a nice day \n"
export VAR
echo "Inside test.ksh";
./test.pl
cat test.pl
#!/usr/bin/perl
print "Inside test.pl \n";
print "$VAR";
Output:
./test.ksh
Inside test.ksh
Inside test.plWhat I want to achieve is, I... (1 Reply)
Hi All,
I've been researching this problem and I am pretty sure that the issue is related to the while loop and the piping. There are plenty of other threads about this issue that recommend removing the pipe and using redirection. However, I haven't been able to get it working using the ssh and... (1 Reply)
Hi,
I use Korn Shell. Searched Forum and modified the way the file is input to the while loop, but still the variable does not seem to be retaining the final count.
while read name
do
Tmp=`echo $name | awk '{print $9 }'`
Count=`cat $Tmp | wc -l`... (6 Replies)
Hello! Before you "bash" me with
- Not another post of this kind
Please read on and you will understand my problem...
I am using the below to extract a sum of the diskIO on a Solaris server.
#!/bin/sh
PATH=/usr/bin:/usr/sbin:/sbin; export PATH
TEMP1="/tmp/raw-sar-output.txt$$"... (3 Replies)
Hi All
Is there is any way to maintain the scope of the variable in unix
Example
x=1
j=1
while
do
..
....
....
while
do
..
..
x=x+1
done
#inner most while loop ends here
done
#outer loop ends here (8 Replies)
Hello,
I met a problem with following code:
#!/usr/bin/perl -w
# test.pl
use strict;
use diagnostics;
use DBI;
my $dbh = DBI->connect(
"DBI:mysql:BibleBook","yifangt","password")
or die("Cannot connect: $DBI::errstr");
my $sql = qq(SELECT * FROM library WHERE isbn =... (2 Replies)
Discussion started by: yifangt
2 Replies
LEARN ABOUT DEBIAN
scope::guard
Scope::Guard(3pm) User Contributed Perl Documentation Scope::Guard(3pm)NAME
Scope::Guard - lexically-scoped resource management
SYNOPSIS
my $guard = guard { ... };
# or
my $guard = scope_guard &handler;
# or
my $guard = Scope::Guard->new(sub { ... });
$guard->dismiss(); # disable the handler
DESCRIPTION
This module provides a convenient way to perform cleanup or other forms of resource management at the end of a scope. It is particularly
useful when dealing with exceptions: the "Scope::Guard" constructor takes a reference to a subroutine that is guaranteed to be called even
if the thread of execution is aborted prematurely. This effectively allows lexically-scoped "promises" to be made that are automatically
honoured by perl's garbage collector.
For more information, see: <http://www.drdobbs.com/cpp/184403758>
METHODS
new
my $guard = Scope::Guard->new(sub { ... });
# or
my $guard = Scope::Guard->new(&handler);
The "new" method creates a new "Scope::Guard" object which calls the supplied handler when its "DESTROY" method is called, typically at the
end of the scope.
dismiss
$guard->dismiss();
# or
$guard->dismiss(1);
"dismiss" detaches the handler from the "Scope::Guard" object. This revokes the "promise" to call the handler when the object is destroyed.
The handler can be re-enabled by calling:
$guard->dismiss(0);
EXPORTS
guard
"guard" takes a block and returns a new "Scope::Guard" object. It can be used as a shorthand for:
Scope::Guard->new(...)
e.g.
my $guard = guard { ... };
Note: calling "guard" anonymously, i.e. in void context, will raise an exception. This is because anonymous guards are destroyed
immediately (rather than at the end of the scope), which is unlikely to be the desired behaviour.
scope_guard
"scope_guard" is the same as "guard", but it takes a code ref rather than a block. e.g.
my $guard = scope_guard &handler;
or:
my $guard = scope_guard sub { ... };
or:
my $guard = scope_guard $handler;
As with "guard", calling "scope_guard" in void context will raise an exception.
VERSION
0.20
SEE ALSO
o B::Hooks::EndOfScope
o End
o Guard
o Hook::Scope
o Object::Destroyer
o Perl::AtEndOfScope
o ReleaseAction
o Scope::local_OnExit
o Scope::OnExit
o Sub::ScopeFinalizer
o Value::Canary
AUTHOR
chocolateboy <chocolate@cpan.org>
COPYRIGHT
Copyright (c) 2005-2010, chocolateboy.
This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
perl v5.10.1 2010-05-16 Scope::Guard(3pm)