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::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)
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)