09-09-2017
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
we need to capture a record from a file in to a variable and do modifications to it .. so capturing line by line in a file in to some variable (2 Replies)
Discussion started by: lmadhuri
2 Replies
2. UNIX for Dummies Questions & Answers
Hi guys,
i have a big file with the following format.This includes header(H),detail(D) and trailer(T) information in the file.My problem is i have to search for the character "6h" at 14 th and 15 th position in all the records .if it is there i have to write all those records into a... (1 Reply)
Discussion started by: raoscb
1 Replies
3. Shell Programming and Scripting
The Sed/Grep command is really confusing me. I know I'm missing something that should be really easy to fix. My program displays multiple names after I ask it to display only one, How do I get it to do only one??
it looks like this:
Please enter a name to display?
>> John
(A list then... (9 Replies)
Discussion started by: toejam
9 Replies
4. Shell Programming and Scripting
I have a txt file with below data (textfile1.txt)
select col1, col2 from Schema_Name.Table_Name1
select * from Schema_Name.Table_Name2
select col1, col2, col3 from Schema_Name.Table_Name3
select col1 from Schema_Name.Table_Name4
My output should look like
Table_Name1
Table_Name2... (5 Replies)
Discussion started by: prasad4004
5 Replies
5. Shell Programming and Scripting
This is my file
-------------
Using index 8 for dump of table abd_det. (6101)
Dumped 0 records. (13932)
Using index 10 for dump of table abscc_det. (6101)
Dumped 0 records. (13932)
Using index 14 for dump of table absc_det. (6101)
Dumped 254365 records. (13932)
Using index 16 for dump of... (10 Replies)
Discussion started by: chakkaravarthy
10 Replies
6. Shell Programming and Scripting
Hello, I have a file that looks like this:
Generated geometry (...some special descriptor)
1 0.56784 1.45783 -0.87965
8 1.29873 -0.8767 1.098789
... ... ... ...
Generated geometry (....come special descriptor)
... .... ... ...
... ... ... ...
and... (4 Replies)
Discussion started by: jaldo0805
4 Replies
7. Shell Programming and Scripting
I am trying to omit the trailer record in a variable width file
I tried using awk 'NR >1 { print prev } { prev = $0 }' filename
The above command is giving output but somehow it is trimming columns from the record. For example if my record has columns A,B,C,D
The awk gives output as A,B,C
... (4 Replies)
Discussion started by: abhilashnair
4 Replies
8. Shell Programming and Scripting
Hi,
I have a .dat file with contents like the below:
Input file
============SEQ NO-1: COLUMN1==========
9835619
7152815
============SEQ NO-2: COLUMN2 ==========
7615348
7015548
9373086
============SEQ NO-3: COLUMN3===========
9373086
Expected Output: (I just... (1 Reply)
Discussion started by: MS06
1 Replies
9. UNIX for Beginners Questions & Answers
Hi Everyone,
I am looking for awk command to retrieve only the record number 23 and record number 89 from a unix file? Please let me know what is the awk command for this?
Regards
Rakesh (1 Reply)
Discussion started by: rakeshp
1 Replies
10. UNIX for Beginners Questions & Answers
I have requirement to search for a text in the file and retrieve required lines that is user defined with unix command.
Eg:
Find the text UNIX in the below file and need to return Test 8 & Test 9
Test 1
Test 2
Test 3
Test 4
UNIX
Test 5
Test 6
Test 7
Test 8
Test 9
Result can... (8 Replies)
Discussion started by: Arunkumarsak4
8 Replies
LEARN ABOUT MOJAVE
universal::require
UNIVERSAL::require(3) User Contributed Perl Documentation UNIVERSAL::require(3)
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>
Now maintained by Neil Bowers (NEILB).
SEE ALSO
Module::Load, "require" in perlfunc, <http://dev.perl.org/rfc/253.pod>
perl v5.18.2 2013-09-27 UNIVERSAL::require(3)