Perl
文章平均质量分 78
Stainky
我有一个梦想... ...
展开
-
Perl拾遗
1.$| = 1; $|缓冲输出控制标记,若设置为0,表示当前输入不经过缓存直接输出。原创 2013-12-04 06:41:32 · 539 阅读 · 0 评论 -
Perl抓取网页信息
demo:#!/usr/bin/perl -w# Perl pragma to restrict unsafe constructsuse strict;# use LWP::UserAgent modeluse LWP::UserAgent;# main functionsub main { # get params # @_ # Within a原创 2013-12-13 13:47:56 · 1777 阅读 · 0 评论 -
Perl读取文本格式化后写入文本
demo:#!/usr/bin/perl -w#Perl pragma to restrict unsafe constructsuse strict;use utf8;#main functionsub main { #get params # @_ # Within a subroutine the array @_ contains the par原创 2013-12-13 13:43:41 · 989 阅读 · 0 评论 -
Perl读写数据库数据
demo:#!/usr/bin/perl -w# Perl pragma to restrict unsafe constructsuse strict;# use DBI modeluse DBI;# debug var results;use Data::Dumper;#validate entrysub validate { my ($v1,$v2) = @_; my原创 2013-12-13 13:49:15 · 1272 阅读 · 0 评论