07-28-2005
Thanks
Thanks mate that a was cool one... Thanks alot.. Yes it was to my requirement. Had to struggle around for that syntax actually.....
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
I am trying to nawk through a file and if the 24.25.26 charachters in the file are "000" then print a line to a new file in one format, otherwise print a line in a different format.
So far I have the following:
nawk '/^1/ {
if(substr($0,24,3) != 000)... (1 Reply)
Discussion started by: kshelluser
1 Replies
2. Solaris
I am reading a Sunsolve document covering moving /var and am confused by one step. What does this command do (in English):
Move into the existing /var directory and transfer all the data to /newvar
# cd /var
# tar cvf - . | (cd /newvar; tar xfBp -) (4 Replies)
Discussion started by: FredSmith
4 Replies
3. Shell Programming and Scripting
Hi ,
I need your help to know the exact operation of this following code ..
cat file1 | ux2dos | tr -d ''>>file2
file1 contains only one line : "DTS-PO\SPECTRUM WO 56"
the data contains a META CHAR "\" .. look at the above line.
But , The file2 output contains :... (7 Replies)
Discussion started by: vparunkumar
7 Replies
4. Shell Programming and Scripting
Hi All,
can you please help me to get clarified about the 'write' command.
I have a script that sends a content of a file msg.txt to other user 'User B' using 'write' command.
Script:
------
.....
cat msg.txt | write "user B"
.....
Issue: I face a issue here, this scripts sends... (3 Replies)
Discussion started by: little_wonder
3 Replies
5. UNIX for Dummies Questions & Answers
I know the topic of getting yesterday's date has been covered ad nauseum, but I just want to be clear on something.
I recently started using the command
date --date='1 days ago' '+%m/%d/%y'
to get yesterday's date and it's been working great. I just want to be certain that it is going to... (1 Reply)
Discussion started by: DeCoTwc
1 Replies
6. Shell Programming and Scripting
Hi,
I am using NAWK command to scan a file (test.txt) and to create new files based on the length of lines in the file test.txt.
My requirement is I need to create test_good with records having line lenght less than 4
and to create test_bad with records having line lenght more than 4. I... (4 Replies)
Discussion started by: sbhuvana20
4 Replies
7. Shell Programming and Scripting
Hi All
We are migrating our projects from unix environment to linux. I tried running a install script which sets up my project, i.e. the directory structure and all. But in the middle of the script i started receiveing following error : nawk: command not found .
So i need to know which... (1 Reply)
Discussion started by: vee_789
1 Replies
8. HP-UX
Hi,
I want to use the "SU" command in script it is asking me to enter the password manually.
pleas the say the syntax of su command in single line that includes username/password. :) (3 Replies)
Discussion started by: vigneshwaran007
3 Replies
9. Shell Programming and Scripting
Hi,
I am checking below command to see the status of windows service from unix but due to "!" sign it is not accepting password. Please suggest alternative what should i do resolve the issue.
net rpc service status W32Time -I 10.1.1.1 -U "mydomain\admin%Passwod12!"
One more thing... (1 Reply)
Discussion started by: learnbash
1 Replies
10. Shell Programming and Scripting
Hi,
I'm a newbie to shell programming and have just written a small program to transfer files.
# job variables
RunMode=$1
export DATETIME=`date +%Y%m%d%H%M%S`
export STARTTIME=`date +%Y%m%d%H%M`
export ShellDir=/rosetlt/scripts/ksh
export LogDir=/rosetlt/scripts/log
export... (2 Replies)
Discussion started by: narayanv
2 Replies
LEARN ABOUT DEBIAN
universal::require
UNIVERSAL::require(3pm) User Contributed Perl Documentation UNIVERSAL::require(3pm)
NAME
UNIVERSAL::require - require() modules from a variable
SYNOPSIS
# This only needs to be said once in your program.
require UNIVERSAL::require;
# Same as "require Some::Module"
my $module = 'Some::Module';
$module->require or die $@;
# Same as "use Some::Module"
BEGIN { $module->use or die $@ }
DESCRIPTION
If you've ever had to do this...
eval "require $module";
to get around the bareword caveats on require(), this module is for you. It creates a universal require() class method that will work with
every Perl module and its secure. So instead of doing some arcane eval() work, you can do this:
$module->require;
It doesn't save you much typing, but it'll make alot more sense to someone who's not a ninth level Perl acolyte.
Methods
require
my $return_val = $module->require or die $@;
my $return_val = $module->require($version) or die $@;
This works exactly like Perl's require, except without the bareword restriction, and it doesn't die. Since require() is placed in the
UNIVERSAL namespace, it will work on any module. You just have to use UNIVERSAL::require somewhere in your code.
Should the module require fail, or not be a high enough $version, it will simply return false and not die. The error will be in $@ as well
as $UNIVERSAL::require::ERROR.
$module->require or die $@;
use
my $require_return = $module->use or die $@;
my $require_return = $module->use(@imports) or die $@;
Like "UNIVERSAL::require", this allows you to "use" a $module without having to eval to work around the bareword requirement. It returns
the same as require.
Should either the require or the import fail it will return false. The error will be in $@.
If possible, call this inside a BEGIN block to emulate a normal "use" as closely as possible.
BEGIN { $module->use }
SECURITY NOTES
UNIVERSAL::require makes use of "eval STRING". In previous versions of UNIVERSAL::require it was discovered that one could craft a class
name which would result in code being executed. This hole has been closed. The only variables now exposed to "eval STRING" are the
caller's package, filename and line which are not tainted.
UNIVERSAL::require is taint clean.
COPYRIGHT
Copyright 2001, 2005 by Michael G Schwern <schwern@pobox.com>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
AUTHOR
Michael G Schwern <schwern@pobox.com>
SEE ALSO
Module::Load, "require" in perlfunc, <http://dev.perl.org/rfc/253.pod>
perl v5.10.0 2009-03-30 UNIVERSAL::require(3pm)