Hey all,
So I know you can easily find and replace words and strings in text files, but is there an easy way to find and replace just a sub-portion of text in the file name. For example, in a directory I have tons of file names that start with F00001-0708, and I want to change all the files to... (2 Replies)
Hi.
I would like to have experts help on below action.
I have text files in which page nubmers exists in form like
PAGE : 1
PAGE : 2
PAGE : 3 and so on there is other text too. I would like to know is it possible to check the last occurance of Page... (6 Replies)
Hello,
Consider that i have many files that have the below format:
file1
900 7777
1000 5 6 23 nnnnnnnnnnnnnnnnnn
1100 kkkkkkk
file2
900 1989
1000 5 3 10 kkkdfdfdffd
1100 kkkkkkk
What i would like to do is on every file to search the line that starts with... (4 Replies)
Hello everyone. I am new to shell scripting and i am required to create a shell script, the purpose of which i will explain below.
I am on a solaris server btw.
Before delving into the requirements, i will give youse an overview of what is currently in place and its purpose.
... (2 Replies)
Hi there
I just wondered if someone could give me some perl advice
I have a bunch of text files used for a wiki that have common headings such as
---++ Title
blah
---++ Summary
blah
---++ Details
Here is the multiline
block
of text I
wish
to (6 Replies)
Not quite a unix question but problem in a perl command. Taking a chance if someone knows about the error
cat 1
a b c d
perl -p -e 's/a/b/g' 1
b b c d
What is the problem here??
perl -p -i -e 's/a/b/g' 1
Can't remove 1: Text file busy, skipping file. (2 Replies)
Hi Folks,
I have an html file which contains the below line in the body tagI am trying the replace hello with Hello Giridhar programatically.
<body>
<P><STRONG><FONT face="comic sans ms,cursive,sans-serif"><EM>Hello</EM></FONT></STRONG></P>
</body>
I have written the below code to... (3 Replies)
Hi,
I am looking for assistance over shell or perl (without XML twig module) which replace string in XML file under particular branch..example of code file sample..
Exact requirment : Replace "Su saldo es" in below file with "Your balance" but only in XML branch of Text id=98 and Text Id=12... (7 Replies)
In the below bash I am trying to rename eachof the 3 text files in /home/cmccabe/Desktop/percent by matching the numerical portion of each file to lines 3,4, or 5 in /home/cmccabe/Desktop/analysis.txt. There will always be a match between the files. When a match is found each text file in... (2 Replies)
Hello Gurus,
I have a filesystem like below :
/u03/oracle/EBSDEV/fs1/EBSapps/appl
I want to get only the portion of the above text like below...
/u03/oracle/EBSDEV
Can you please advice on this?
Thanks-
P (5 Replies)
Discussion started by: pokhraj_d
5 Replies
LEARN ABOUT DEBIAN
marc::batch
MARC::Batch(3pm) User Contributed Perl Documentation MARC::Batch(3pm)NAME
MARC::Batch - Perl module for handling files of MARC::Record objects
SYNOPSIS
MARC::Batch hides all the file handling of files of "MARC::Record"s. "MARC::Record" still does the file I/O, but "MARC::Batch" handles the
multiple-file aspects.
use MARC::Batch;
# If you have werid control fields...
use MARC::Field;
MARC::Field->allow_controlfield_tags('FMT', 'LDX');
my $batch = MARC::Batch->new( 'USMARC', @files );
while ( my $marc = $batch->next ) {
print $marc->subfield(245,"a"), "
";
}
EXPORT
None. Everything is a class method.
METHODS
new( $type, @files )
Create a "MARC::Batch" object that will process @files.
$type must be either "USMARC" or "MicroLIF". If you want to specify "MARC::File::USMARC" or "MARC::File::MicroLIF", that's OK, too.
"new()" returns a new MARC::Batch object.
@files can be a list of filenames:
my $batch = MARC::Batch->new( 'USMARC', 'file1.marc', 'file2.marc' );
Your @files may also contain filehandles. So if you've got a large file that's gzipped you can open a pipe to gzip and pass it in:
my $fh = IO::File->new( 'gunzip -c marc.dat.gz |' );
my $batch = MARC::Batch->new( 'USMARC', $fh );
And you can mix and match if you really want to:
my $batch = MARC::Batch->new( 'USMARC', $fh, 'file1.marc' );
next()
Read the next record from that batch, and return it as a MARC::Record object. If the current file is at EOF, close it and open the next
one. "next()" will return "undef" when there is no more data to be read from any batch files.
By default, "next()" also will return "undef" if an error is encountered while reading from the batch. If not checked for this can cause
your iteration to terminate prematurely. To alter this behavior, see "strict_off()". You can retrieve warning messages using the
"warnings()" method.
Optionally you can pass in a filter function as a subroutine reference if you are only interested in particular fields from the record.
This can boost performance.
strict_off()
If you would like "MARC::Batch" to continue after it has encountered what it believes to be bad MARC data then use this method to turn
strict OFF. A call to "strict_off()" always returns true(1).
"strict_off()" can be handy when you don't care about the quality of your MARC data, and just want to plow through it. For safety,
"MARC::Batch" strict is ON by default.
strict_on()
The opposite of "strict_off()", and the default state. You shouldn't have to use this method unless you've previously used "strict_off()",
and want it back on again. When strict is ON calls to next() will return undef when an error is encountered while reading MARC data.
strict_on() always returns true(1).
warnings()
Returns a list of warnings that have accumulated while processing a particular batch file. As a side effect the warning buffer will be
cleared.
my @warnings = $batch->warnings();
This method is also used internally to set warnings, so you probably don't want to be passing in anything as this will set warnings on your
batch object.
"warnings()" will return the empty list when there are no warnings.
warnings_off()
Turns off the default behavior of printing warnings to STDERR. However, even with warnings off the messages can still be retrieved using
the warnings() method if you wish to check for them.
"warnings_off()" always returns true(1).
warnings_on()
Turns on warnings so that diagnostic information is printed to STDERR. This is on by default so you shouldn't have to use it unless you've
previously turned off warnings using warnings_off().
warnings_on() always returns true(1).
filename()
Returns the currently open filename or "undef" if there is not currently a file open on this batch object.
RELATED MODULES
MARC::Record, MARC::Lint
TODO
None yet. Send me your ideas and needs.
LICENSE
This code may be distributed under the same terms as Perl itself.
Please note that these modules are not products of or supported by the employers of the various contributors to the code.
AUTHOR
Andy Lester, "<andy@petdance.com>"
perl v5.10.1 2010-03-29 MARC::Batch(3pm)