HTTP::OAI::ListRecords(3pm) User Contributed Perl Documentation HTTP::OAI::ListRecords(3pm)NAME
HTTP::OAI::ListRecords - Provide access to an OAI ListRecords response
SYNOPSIS
my $r = $h->ListRecords(
metadataPrefix=>'oai_dc',
);
while( my $rec = $r->next ) {
print "Identifier => ", $rec->identifier, "
";
}
die $r->message if $r->is_error;
# Using callback method
sub callback {
my $rec = shift;
print "Identifier => ", $rec->identifier, "
";
};
my $r = $h->ListRecords(
metadataPrefix=>'oai_dc',
onRecord=>&callback
);
die $r->message if $r->is_error;
METHODS
$lr = new HTTP::OAI::ListRecords
This constructor method returns a new HTTP::OAI::ListRecords object.
$rec = $lr->next
Returns either an HTTP::OAI::Record object, or undef, if no more record are available. Use $rec->is_error to test whether there was an
error getting the next record.
@recl = $lr->record([$rec])
Returns the record list and optionally adds a new record or resumptionToken, $rec. Returns an array ref of HTTP::OAI::Records,
including an optional resumptionToken string.
$token = $lr->resumptionToken([$token])
Returns and optionally sets the HTTP::OAI::ResumptionToken.
$dom = $lr->toDOM
Returns a XML::DOM object representing the ListRecords response.
perl v5.12.4 2011-06-23 HTTP::OAI::ListRecords(3pm)
Check Out this Related Man Page
HTTP::OAI::Identify(3pm) User Contributed Perl Documentation HTTP::OAI::Identify(3pm)NAME
HTTP::OAI::Identify - Provide access to an OAI Identify response
SYNOPSIS
use HTTP::OAI::Identify;
my $i = new HTTP::OAI::Identify(
adminEmail=>'billg@microsoft.com',
baseURL=>'http://www.myarchives.org/oai',
repositoryName=>'www.myarchives.org'
);
for( $i->adminEmail ) {
print $_, "
";
}
METHODS
$i = new HTTP::OAI::Identify(-baseURL=>'http://arXiv.org/oai1'[, adminEmail=>$email, protocolVersion=>'2.0', repositoryName=>'myarchive'])
This constructor method returns a new instance of the OAI::Identify module.
$i->version
Return the original version of the OAI response, according to the given XML namespace.
$i->headers
Returns an HTTP::OAI::Headers object. Use $headers->header('headername') to retrive field values.
$burl = $i->baseURL([$burl])
$eds = $i->earliestDatestamp([$eds])
$gran = $i->granularity([$gran])
$version = $i->protocolVersion($version)
$name = $i->repositoryName($name)
Returns and optionally sets the relevent header. NOTE: protocolVersion will always be '2.0'. Use $i->version to find out the protocol
version used by the repository.
@addys = $i->adminEmail([$email])
@cmps = $i->compression([$cmp])
Returns and optionally adds to the multi-value headers.
@dl = $i->description([$d])
Returns the description list and optionally appends a new description $d. Returns an array ref of HTTP::OAI::Descriptions, or an empty
ref if there are no description.
$d = $i->next
Returns the next description or undef if no more description left.
$dom = $i->toDOM
Returns a XML::DOM object representing the Identify response.
perl v5.12.4 2011-06-23 HTTP::OAI::Identify(3pm)
I've got a really weird situation here.... the same IP address keeps popping up in porn spam that I have rec'd in 2 different email accts. It looks to me like it's coming from UC Davis, and I suspect someone there, so I am hoping you all can verify the same thing before I call the person on this... (0 Replies)
I have a file where some records have been updated the wrong way and need to fix it quickly since the amount can be alot.
Every record where any of the first 4 characters are in upper case need to be changed to lowercase.
Records can have '#' in position-1 for comments. These musn't be... (2 Replies)
#!/usr/local/bin/perl
open (MYFILE, 'logs_report');
while (<MYFILE>) {
$rec=$_;
chomp ($rec);
@arr=split(/ /,$rec);
print $rec,"\n" if ($arr!~/OK/);
open (MYF, '>data.txt');
print $rec,"\n" if ($arr!~/OK/);
close (MYF); (14 Replies)
Hi
I have file which contains 5 coulmns i need to add the fifth column value and put it in the desired location in the same column.
Here is the sample file..
ashop0004 SQL- 06/14/2009 06/14/2009 00:04:28 SUM
ashop0004 SQL- 06/14/2009 06/14/2009 00:00:37 ... (22 Replies)
Hi All,
I am using ingres in perl
select count(*) rec from user_tables where table_name = 'abc';
I want to use the alias variable 'rec' and check the value if >0 insert values else create table.
How can I do this without using hash variables in perl.
Kindly help me in this regard.
Much... (1 Reply)
Greeting,
The following script completes after reading only one record from the input file that contains many records. I commented out the "ssh" and get what I expect, an echo of all the records in the input.txt file. Is ssh killing the file handle?
On the box "uname -a" gives "SunOS... (2 Replies)
Hi,
Here i have to check first record $3 $4 with second record $1 $2 respectively. If match found, then check first record $2 == second record $4 , if it equals , then reduce two records to single record like as desired output.
Input_file
1 1 2 1
2 1 3 1
3 1 4 1
3 1 3 2
desired... (3 Replies)
HI,
I need to print the record count of a file using shell script.
If the record count of a file excluding header and trailer record if greater than zero then print 'Record count of a file is xxxx records'.
If the record count is zero print 'zero records'
Thanks
Mahendra (1 Reply)