HTTP::OAI::ListIdentifiers(3pm) User Contributed Perl Documentation HTTP::OAI::ListIdentifiers(3pm)NAME
HTTP::OAI::ListIdentifiers - Provide access to an OAI ListIdentifiers response
SYNOPSIS
my $r = $h->ListIdentifiers;
while(my $rec = $r->next) {
print "identifier => ", $rec->identifier, "
",
print "datestamp => ", $rec->datestamp, "
" if $rec->datestamp;
print "status => ", ($rec->status || 'undef'), "
";
}
die $r->message if $r->is_error;
METHODS
$li = new OAI::ListIdentifiers
This constructor method returns a new OAI::ListIdentifiers object.
$rec = $li->next
Returns either an HTTP::OAI::Header object, or undef, if there are no more records. Use $rec->is_error to test whether there was an
error getting the next record (otherwise things will break).
If -resume was set to false in the Harvest Agent, next may return a string (the resumptionToken).
@il = $li->identifier([$idobj])
Returns the identifier list and optionally adds an identifier or resumptionToken, $idobj. Returns an array ref of HTTP::OAI::Headers.
$dom = $li->toDOM
Returns a XML::DOM object representing the ListIdentifiers response.
$token = $li->resumptionToken([$token])
Returns and optionally sets the HTTP::OAI::ResumptionToken.
perl v5.12.4 2007-06-28 HTTP::OAI::ListIdentifiers(3pm)
Check Out this Related Man Page
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)
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)
Not sure where to post this so I placed it here. Anyone have any experience with cccHarvest 5.1 or AllFusion Harvest Change Manager 5.1? I have to put together a plan to move from PVCS to Harvest/AllFusion and I dont know much at all about the latter. Any help, information, or links would be... (3 Replies)
Hi,
I have just started working on unix today. I want to get the instring of a string (filename).
Eg. JAN_BILS_PRINT_01-01-08.txt
Now i want to extract the datestamp from the file and convert the date to the format mm/dd/yyyy.
How do i do this? Please hel pme with this.
Regards,... (10 Replies)
i have a problem here
TZ=`date +%Z`+0 ;a=`date +%b%e`----gives me Feb27
but i want Feb 27.there should be a single space b/w Feb and 27....
can anyone tell me how to resolve this issues........ (1 Reply)
#!/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)
Hi,
I am trying to find a way to get sed/awk/grep to help me find a string in a log file that exists between two datestamps and then print the preceding datestamp up to the next datestamp.
Here is an example of my logfile:
+++ 2013/03/28 17:01:37.085 SIGNALING HIGH ACTIVE
Failure Response... (5 Replies)
Hi All,
Need your help on how i can sum up the values. I have a file that contains the count and the time. I wanted to add up all the first column having the same datestamp. Please see below.
INPUT
1721 2015-12-26 00:01
1440 2015-12-26 00:02
1477 2015-12-26 00:02
411 ... (4 Replies)