10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
I have a data base of part numbers:
AAA Thing1
BBB Thing2
CCC Thing3
File one is a list of part numbers:
AAA234
BBB678
CCC2345
Is there a sed one-line that would compare a data base with and replace the part numbers so that the output looks like this?
AAA234 Thing1
BBB678 Thing2... (5 Replies)
Discussion started by: jimmyf
5 Replies
2. Shell Programming and Scripting
Hello experts,
I'm stuck with this script for three days now. Here's what i need.
I need to split a large delimited (,) file into 2 files based on the value present in the last field.
Samp: Something.csv
bca,adc,asdf,123,12C
bca,adc,asdf,123,13C
def,adc,asdf,123,12A
I need this split... (6 Replies)
Discussion started by: shell_boy23
6 Replies
3. UNIX for Dummies Questions & Answers
I have an array containing bunch of characters. I have to check this array for specific character and if "Not Found than" use a goto statement to go to USAGE
set options = (A B C D E F)
@ i = 0
while ($i <= ${#options})
if ($options != "F" || $options != "D") then
goto USAGE
endif
@... (1 Reply)
Discussion started by: dixits
1 Replies
4. UNIX for Dummies Questions & Answers
hi,
I have a directory "test" under which there are 3 files a.txt,b.txt and c.txt.
I need to rename those files to a.pl,b.pl and c.pl respectively.
is it possible to achieve this in a sed or awk one liner?
i have searched but many of them are scripts.
I need to do this in a one liner.
I... (2 Replies)
Discussion started by: pandeesh
2 Replies
5. Shell Programming and Scripting
hey everyone,
I want to remove some characters from a string that i have with sed. For example if my string is:
a0=bus a1=car a2=truck
I want my output to look like this:
bus car truck
So i want to delete the two characters before the = and including the =. This is what i came up with... (3 Replies)
Discussion started by: GmGeubt
3 Replies
6. Shell Programming and Scripting
Hi, I'm writing a ksh script and trying to use an awk / sed / or perl one-liner to remove the last 4 characters of a line in a file if it begins with a period.
Here is the contents of the file... the column in which I want to remove the last 4 characters is the last column. ($6 in awk). I've... (10 Replies)
Discussion started by: right_coaster
10 Replies
7. Shell Programming and Scripting
sed awk one liner (2 Replies)
Discussion started by: jap2614
2 Replies
8. Shell Programming and Scripting
Thanks for giving your time and effort to answer questions and helping newbies like me understand awk.
I have a huge file, millions of lines, so perl takes quite a bit of time, I'd like to convert these perl one liners to awk.
Basically I'd like all lines with ISA sandwiched between... (9 Replies)
Discussion started by: verge
9 Replies
9. Shell Programming and Scripting
Execution of the following segment is giving the error -
Script extract:-
OUT=$DATADIR/sol_rsult_orphn.bcp
TMP1=${OUT}_tmp1
TMP=${OUT}_tmp
( isql -w 400 $dbConnect_OPR <<EOF
select convert(char(10), s.lead_id)
+'|'
+ s.pho_loc_type,
";",
s.sol_rsult_cmnt,
";",
+'|'+ s.del_ind... (3 Replies)
Discussion started by: kzmatam
3 Replies
10. UNIX for Dummies Questions & Answers
Hi group,
I want to replace the occurance of a particular text in a paragraph.I tried with Sed,but Sed only displays the result on the screen.How can i update the changes in the original file???
The solution should be a one liner using awk and sed.
Thanks in advance. (5 Replies)
Discussion started by: bishnu.bhatta
5 Replies
Import::Into(3) User Contributed Perl Documentation Import::Into(3)
NAME
Import::Into - import packages into other packages
SYNOPSIS
package My::MultiExporter;
use Import::Into;
use Thing1 ();
use Thing2 ();
# simple
sub import {
Thing1->import::into(scalar caller);
}
# multiple
sub import {
my $target = caller;
Thing1->import::into($target);
Thing2->import::into($target, qw(import arguments));
}
# by level
sub import {
Thing1->import::into(1);
}
# with exporter
use base qw(Exporter);
sub import {
shift->export_to_level(1);
Thing1->import::into(1);
}
# no My::MultiExporter == no Thing1
sub unimport {
Thing1->unimport::out_of(scalar caller);
}
People wanting to re-export your module should also be using Import::Into. Any exporter or pragma will work seamlessly.
Note: You do not need to make any changes to Thing1 to be able to call "import::into" on it. This is a global method, and is callable on
any package (and in fact on any object as well, although it's rarer that you'd want to do that).
DESCRIPTION
Writing exporters is a pain. Some use Exporter, some use Sub::Exporter, some use Moose::Exporter, some use Exporter::Declare ... and some
things are pragmas.
Exporting on someone else's behalf is harder. The exporters don't provide a consistent API for this, and pragmas need to have their import
method called directly, since they effect the current unit of compilation.
"Import::Into" provides global methods to make this painless.
METHODS
$package->import::into( $target, @arguments );
A global method, callable on any package. Imports the given package into $target. @arguments are passed along to the package's import
method.
$target can be an package name to export to, an integer for the caller level to export to, or a hashref with the following options:
package
The target package to export to.
filename
The apparent filename to export to. Some exporting modules, such as autodie or strictures, care about the filename they are being
imported to.
line
The apparent line number to export to. To be combined with the "filename" option.
level
The caller level to export to. This will automatically populate the "package", "filename", and "line" options, making it the easiest
most constent option.
version
A version number to check for the module. The equivalent of specifying the version number on a "use" line.
$package->unimport::out_of( $target, @arguments );
Equivalent to "import::into", but dispatches to $package's "unimport" method instead of "import".
WHY USE THIS MODULE
The APIs for exporting modules aren't consistent. Exporter subclasses provide export_to_level, but if they overrode their import method
all bets are off. Sub::Exporter provides an into parameter but figuring out something used it isn't trivial. Pragmas need to have their
"import" method called directly since they affect the current unit of compilation.
It's ... annoying.
However, there is an approach that actually works for all of these types.
eval "package $target; use $thing;"
will work for anything checking caller, which is everything except pragmas. But it doesn't work for pragmas - pragmas need:
$thing->import;
because they're designed to affect the code currently being compiled - so within an eval, that's the scope of the eval itself, not the
module that just "use"d you - so
sub import {
eval "use strict;"
}
doesn't do what you wanted, but
sub import {
strict->import;
}
will apply strict to the calling file correctly.
Of course, now you have two new problems - first, that you still need to know if something's a pragma, and second that you can't use either
of these approaches alone on something like Moose or Moo that's both an exporter and a pragma.
So, a solution for that is:
my $sub = eval "package $target; sub { shift->import(@_) }";
$sub->($thing, @import_args);
which means that import is called from the right place for pragmas to take effect, and from the right package for caller checking to work -
and so behaves correctly for all types of exporter, for pragmas, and for hybrids.
Additionally, some import routines check the filename they are being imported to. This can be dealt with by generating a #line directive
in the eval, which will change what "caller" reports for the filename when called in the importer. The filename and line number to use in
the directive then need to be fetched using "caller":
my ($target, $file, $line) = caller(1);
my $sub = eval qq{
package $target;
#line $line "$file"
sub { shift->import(@_) }
};
$sub->($thing, @import_args);
And you need to switch between these implementations depending on if you are targetting a specific package, or something in your call
stack.
Remembering all this, however, is excessively irritating. So I wrote a module so I didn't have to anymore. Loading Import::Into creates a
global method "import::into" which you can call on any package to import it into another package. So now you can simply write:
use Import::Into;
$thing->import::into($target, @import_args);
This works because of how perl resolves method calls - a call to a simple method name is resolved against the package of the class or
object, so
$thing->method_name(@args);
is roughly equivalent to:
my $code_ref = $thing->can('method_name');
$code_ref->($thing, @args);
while if a "::" is found, the lookup is made relative to the package name (i.e. everything before the last "::") so
$thing->Package::Name::method_name(@args);
is roughly equivalent to:
my $code_ref = Package::Name->can('method_name');
$code_ref->($thing, @args);
So since Import::Into defines a method "into" in package "import" the syntax reliably calls that.
For more craziness of this order, have a look at the article I wrote at <http://shadow.cat/blog/matt-s-trout/madness-with-methods> which
covers coderef abuse and the "${...}" syntax.
Final note: You do still need to ensure that you already loaded $thing - if you're receiving this from a parameter, I recommend using
Module::Runtime:
use Import::Into;
use Module::Runtime qw(use_module);
use_module($thing)->import::into($target, @import_args);
And that's it.
ACKNOWLEDGEMENTS
Thanks to Getty for asking "how can I get "use strict; use warnings;" turned on for all consumers of my code?" and then "why is this not a
module?!".
AUTHOR
mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
CONTRIBUTORS
haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>
COPYRIGHT
Copyright (c) 2012 the Import::Into "AUTHOR" and "CONTRIBUTORS" as listed above.
LICENSE
This library is free software and may be distributed under the same terms as perl itself.
perl v5.18.2 2013-12-10 Import::Into(3)