摘要：
#!/usr/bin/perl## create a MARC::Record object.use MARC::Record;my $record = MARC::Record->new();## add the leader to the record. optional.$record->leader('00903pam 2200265 a 4500');## create an... 阅读全文
摘要：
今天是中国的七夕，也俗称中国情人节。昨天我并不知道是七月初六。昨天上百度的时候看到一个什么传情，反正下雨打孩子--闲着也是闲着，就注册发了一条，想今天给老婆一个惊喜，可惜破百度没有给我发出来，他奶奶个腿!今天也没有跟老婆说，算了。晚上的时候再说吧。 阅读全文
摘要：
sub trim{ my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string;} 阅读全文