subs(3pm) Perl Programmers Reference Guide subs(3pm)NAME
subs - Perl pragma to predeclare sub names
SYNOPSIS
use subs qw(frob);
frob 3..10;
DESCRIPTION
This will predeclare all the subroutine whose names are in the list, allowing you to use them without parentheses even before they're
declared.
Unlike pragmas that affect the $^H hints variable, the "use vars" and "use subs" declarations are not BLOCK-scoped. They are thus
effective for the entire package in which they appear. You may not rescind such declarations with "no vars" or "no subs".
See "Pragmatic Modules" in perlmodlib and "strict subs" in strict.
perl v5.16.2 2012-10-11 subs(3pm)
Check Out this Related Man Page
strict(3pm) Perl Programmers Reference Guide strict(3pm)NAME
strict - Perl pragma to restrict unsafe constructs
SYNOPSIS
use strict;
use strict "vars";
use strict "refs";
use strict "subs";
use strict;
no strict "vars";
DESCRIPTION
If no import list is supplied, all possible restrictions are assumed. (This is the safest mode to operate in, but is sometimes too strict
for casual programming.) Currently, there are three possible things to be strict about: "subs", "vars", and "refs".
"strict refs"
This generates a runtime error if you use symbolic references (see perlref).
use strict 'refs';
$ref = $foo;
print $$ref; # ok
$ref = "foo";
print $$ref; # runtime error; normally ok
$file = "STDOUT";
print $file "Hi!"; # error; note: no comma after $file
There is one exception to this rule:
$bar = &{'foo'};
&$bar;
is allowed so that "goto &$AUTOLOAD" would not break under stricture.
"strict vars"
This generates a compile-time error if you access a variable that wasn't declared via "our" or "use vars", localized via "my()", or
wasn't fully qualified. Because this is to avoid variable suicide problems and subtle dynamic scoping issues, a merely local() vari-
able isn't good enough. See "my" in perlfunc and "local" in perlfunc.
use strict 'vars';
$X::foo = 1; # ok, fully qualified
my $foo = 10; # ok, my() var
local $foo = 9; # blows up
package Cinna;
our $bar; # Declares $bar in current package
$bar = 'HgS'; # ok, global declared via pragma
The local() generated a compile-time error because you just touched a global name without fully qualifying it.
Because of their special use by sort(), the variables $a and $b are exempted from this check.
"strict subs"
This disables the poetry optimization, generating a compile-time error if you try to use a bareword identifier that's not a subrou-
tine, unless it appears in curly braces or on the left hand side of the "=>" symbol.
use strict 'subs';
$SIG{PIPE} = Plumber; # blows up
$SIG{PIPE} = "Plumber"; # just fine: bareword in curlies always ok
$SIG{PIPE} = &Plumber; # preferred form
See "Pragmatic Modules" in perlmodlib.
perl v5.8.0 2002-06-01 strict(3pm)
Hi all
I am in a small problem pl help me out.
I am having a directory having ZIP files with name starting as :
01.xyz
02.pqr
and so on
I want to run the script-
cat myfile | awk '{print $1, $2}' | while read var1 var2
do
zcat $var2* | grep "^000$var1" >> my_output
done
Where the... (22 Replies)
Hi
I have a variable whose value is like this
i=/test/test1/test2/myfile.cd.070505123457
i would like to have the value of myfile.cd stored into another variable
my attempt is
test=${i##*/} ;echo $test ##and i get
myfile.cd.070505123457
since what i wnat is myfile.cd i try this... (19 Replies)
I have a file where the data is stored in 6 columns, I would like to subset only lines with the fourth column is blank.
Can anybody help me with this?
Thanks
Joseph (19 Replies)
This is the data I am having in a file
Just for sample I have given 3 records. The file which I am having consists of n number of records.
ABC123 10 01/02/2008 2008-01-03-00.00.00.000000
DYUU 22 02/03/2008 2008-01-04-00.00.00.000000
RF33 88 03/05/2008 2008-01-05-00.00.00.000000
... (24 Replies)
Hi all,
Im stuck in findind solution to ths problem. Please guide me if u have any ideas.
I have two files.
===FILE1===
>bi|2138271|geb|AAC15885.1|precursor
MRVIAAAMLYLYIVVLAICSVGIQGIDYPSVSFNLAGAKSATWDFLRMPHDLVGEDNKYNDGEPITGNII... (25 Replies)
I'm a noob to unix, and I have a line of data like the following:
title=Boston|tcolor=green|desc=Large city in New England|url=www.boston.com
Is there a way to change a field value with sed substitution?
(i.e. change tcolor=green to tcolor=blue)
I figured out: sed... (19 Replies)
Hi Gurus,I have a seemingly simple problem but struggling with it.It is as follows :
I/p string -
ABCDEFGHIJ20100909.txt
desired o/p -
AB,DEF,20100909,ABCDEFGHIJ20100909.txt
How to achieve it ?Thanks in advance.
Please use code tags, thank you (20 Replies)
Hi,
I try to list all files in a folder, including all the subdirs (and their subdirs) and all files contained in each of these folders. I then print it to a simple txt file.
I use ls -R -1 >test.txt
This sort of does what I need, yet, the result is something like:
It reasonably comes... (53 Replies)
I've made a shell script for archiving HTML pages, i.e. making them work offline plus add some features.
Here is it:
#!/bin/sh
if || +/res/+") = "" ]; then
echo "Usage: `basename $0` <4chan thread url> <>"
exit 0
fi
echo "4chan downloader"
LOC=$(echo "$1" | sed... (23 Replies)
I have a file that I need to find each interface that has move-group on the interface line and print this line if the lines under the interface does Not have "filter-shared 14".
Example file:
interface 1/1/1/0 move-group
decription one one one zero
no shut
filter-shared 14... (21 Replies)
Hi, I have 2 statements in a file
a.sh start time is Fri Jan 9 17:17:33 CST 2015
a.sh end time is Fri Jan 9 17:47:33 CST 2015
I am required to get only the time out of it. like
17:17:33 & 17:47:33
PLs suggest (21 Replies)
Interesting....
I am still working on the kinks for Live Chat here at unix.com using a publish-subscribe API from PubNub. Two days ago while working on it, a new user joined the live chat and asked about how to post a new thread in the forum. Then today, one of the members of the PubNub team... (23 Replies)