523066680编辑区 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

#include <BoysAndGirls.h> /*人物性质*/ #include <Garden.h> /*地点环境我想好了*/ #include <Action.h> /*各种动作*/ int main(int time, char *BoysAndGirlsName) { New result; result=meet(boy("John"),girl("Alice")); printf("%s",result.body); /*我YY打出一屏幕的字符，字符组成的是一对双胞胎 */ /* return 2 , 如果输出的ML的字符动画，靠... */ return result.babys; }

[ Last edited by 523066680 on 2010-9-5 at 19:44 ]

2i5HMABAA&&ABMMA9A&2hHhG39BBSrs29HM#B#BHA#M#B&A#GSX993X3G2:..
S5H#H 广州威立舜电子 XS239irisi5hAH##A#H#BM##ABB323333h&2:..
5GMAA =.=这是转换来的 S32irrSsXSXXX2&3AAMBA3H#MB#AX2X39395:..
53AHAHH#AMBM##BB#h2MhS2G9Srr5s99iX32Ss;r3AB#2iA#B##h2X33X2S,
9&BAHBM##B###MM#A3Mh5hA3555X9AHX5XXiSr,,,X##AiiHMH#B22XXX2i,
&HHABB###M##M###BM9XA&2SXGGB#Bh9hXSiS;...:&#A#23BBM#&22XG&3,
GH&G&MM###AM##AAM39Hh52&HB##&9GAA2iir... ,rMBAA3AM##Bh3hGAA:
GBA&&#MAAAAM#AAMGAA3SGMHA##9SAAhA5r;,.... ,5B#A9&M##HAhGh&A;
GB#MHHMAAA##AAHGBHAGM#AAHHi;XMS9hS:,..... ,&BA#GH##AAABhAM;
GMAM#B#AAA#A#&AMM####HGAh;,rA5rAX,.. .,:;r;;XM#AA&M#A&HM&BAr
hMA#A#AA###H&#AAA###AS2i,.:X3,Xh, ,:s5Sir;::rH#A#GAABA#MBAAs
9B##AAAAMA&A#AAA##AB222sssrh:sG, ,;5i:. .,,:3###A&BMBA#BAAi
9A##AAAMGA#AAAABHG;,:,,:rSSs:S, ,:;:,;h#A#Bhr2##MAABAA##H#A5
AAAM#BB##AAA#A#H2;:rrrr:::;;;,...,:;AAAAA,.#&XM#BAA####HHAAX.
#MMH#AA#AAABB#HX5AAAAAAB;;;::,....:;,hA2; .;;5AAB#ABMMA##AA9.
#AAAAAA#A###HhXXAMrBMAA, .::::,.. .. ,:,,;3AM#A#BB#M#AA&.
2AA#AAA#B#M#M3sriir;r;,.,,,,:::.. ,SAB###BBM&BAAA.
SGAAAAAAHM#MM9;;:,. .,,,,,,::,.... . XABA##HBMGH#AA
25#AAAAAMBAM#Br::. ...,,,,,:,..............A#BA##BM#&H#AM,
3XGAAAAAAMA#MA3;;,,,.....,,,,::,........,,,,.:A#BMA#B###M#A#.
h92AAAAAAA#AMHAi;::::,,,,,,,:;;r:;:.....,,,,.iA#MhH#####MMA#.
9hXXAA#AAAAA#&hir::::::::,,::;rss;:....,,,,,,HA#AAM99A#A##AH.
h&Xh#A#A#AAAAMBS;;:::::::::,,,:::,. .,,:::.sAAB&MBhirr5MAA&
hG9AAAMM#AAAAAA#r:;;:::::::,:::,,,:iX,,:::,;AA#AHBHA9S: rAH
&GhAAA#GMB&#AA#A#;,;;;;;;::rMHh99HM##:,::,rAAMMHHHH&i:. , :AM
HAAMAX#M9BHGAAA#AA5;:;;;;;;;iAAH2si5s..,,iAA##BAHAAG; ,i,5#2
AHA5,rAABAMGAAAAAAAB2r;:;;;;,;ris,:i2i::&AA###HhM&9G;..r:r#2r
X2s:rHA#A#AB&A#AAAAAMBhi;;;;;:;riiS55AHG&B##B#&h#G3G2;;;;&2sX
;:;shABXHA#AHAA#AAM##AM#H3i;;;::,::;XMMA25i2##h#A&i2&;:;92ssA
;;iiiBBh&#A#GAH&M#BA#A23hGGh2ir;;;riSsri2XX2S29AAA;2&,:XA2hH2
;rirrABHH##AA&HAGA#GhHiiS552X33X222ir;;:29SX&2s2HBX&r,SMAGHA5
;;r;:G#AAMAAAA&H&AHH5HXsiiiiiiiiiis;;;rr5#A3S5hXi2Ai:XABA&&&X

[ Last edited by 523066680 on 2010-9-5 at 19:44 ]

偶然要用到，某个杂牌手机的T卡通讯录里面的字的储存使用UTF-8编码的


#!/usr/bin/perl
open READ,"<next.x";

$lv_=00000000;
$lv_=11000000;
$lv_=11100000;
$lv_=11110000;
$lv_=11111000;
$lv_=11111100;

use utf8;

$a="我";
printf "%s\n",&code2utf(ord $a);
print "END!";
<STDIN>;


sub code2utf {
 my ($code,$bin,$level,$hex,$tmp,$result);
 $code=$_;
 $bin=sprintf "%b",$code;
 
 $level=1;
 if (length($bin)>7) { 
  while (length($bin)>=6) {
     $level+=1;
     $bin=~s/.{6}$//;
     $hex=sprintf "%X",&bin2int(10 . $&);
     $result=$hex ."-". $result;
  }
 }

$tmp=substr($lv_,0,8-length($bin));
$hex=sprintf "%X",&bin2int($tmp . $bin);
$result=$hex ."-". $result;
$result=~s/-$//;  
$result;   #result - string
}

sub bin2int {
 my ($a,$str,$all,$act);
 $a=$_;
 $str="";
 $all=0;
 $act=0;
 do { 
   $b=($a % 10) * (2**$act);  #** as ^ of the calc
   $all+=$b;
   $act+=1;
   $a=int ($a/10);
 } until ($a==0);
 int ($all);
}

看到脑袋晕了。。。

Originally posted by 523066680 at 2009-02-13 18:49:
@echo off &setlocal enabledelayedexpansion set /p inp=" : " call :funa na %inp% call :funa nb %inp:* =% set /a lpna=0,lpr=-1 :lpna set /a lpna+=1,lpnb=0,lpr+=1,lp=lpr :lpnb set /a lpnb+=1,lp+=1 :::::::::::::::::::::::::: set /a cup%lp%+=na%lpna%*nb%lpnb% set /a tlpa=lp,tlpb=tlpa+1 :cuplp set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10 if !cup%tlpb%! gtr 9 ( set /a tlpa+=1,tlpb=tlpa+1 goto :cuplp ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1) :::::::::::::::::::::::::: if %lpnb% lss %nb% (goto :lpnb) if %lpna% lss %na% (goto :lpna) for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul echo, echo,wscript.echo %inp: =*%>x.vbs cscript //nologo x.vbs pause>nul &exit :funa set %1=%2 set funaa=0 :funaa set /a funaa+=1 set %1%funaa%=!%1:~-%funaa%,1! if not "!%1:~%funaa%!"=="" (goto :funaa) set /a %1=funaa

版本2
@echo off &setlocal enabledelayedexpansion set /p inp=" : " call :naxnb %inp% pause :naxnb set numa=%1 set numb=%2 set /a la=0,lpr=-1 :la set /a la+=1,lb=0,lpr+=1,lp=lpr :lb set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1 ::::::::::::::::::::::::: set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1! :cuplp set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10 if !cup%tlpb%! gtr 9 ( set /a tlpa+=1,tlpb=tlpa+1 goto :cuplp ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1) :::::::::::::::::::::::::: if not "!numb:~%lb%!"=="" (goto :lb) if not "!numa:~%la%!"=="" (goto :la) for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul ::::::::vbs验证一下::::::::::: echo, echo,wscript.echo %inp: =*%>x.vbs cscript //nologo x.vbs pause>nul &exit

[ Last edited by 523066680 on 2009-2-21 at 10:46 ]

命令行模式测试：
真的可以加吗？
怎么退出？靠！

咦还有人上来？

哈哈，你不也还上来。


=info
    Edit: vicyang
    Mail: 523066680@163.com
    Date: 2016-06
=cut

use v5.16;
use utf8;
use Encode;
use LWP::UserAgent;
use LWP::Simple qw/getstore get/;
use IO::Handle;
STDOUT->autoflush(1);

our $website = "http://www.pep.com.cn/gzwl/jszx/tbjx/kb/dzkb/";
#our $website = "\x68\x74\x74\x70\x3A\x2F\x2F\x77\x77\x77\x2E\x70\x65\x70\x2E\x63\x6F\x6D\x2E\x63\x6E\x2F\x67\x7A\x77\x6C\x2F\x6A\x73\x7A\x78\x2F\x74\x62\x6A\x78\x2F\x6B\x62\x2F\x64\x7A\x6B\x62\x2F";

our $bookpage;
our $WORKDIR;
our $page1maps;
my  ($path, $begin, $end);

my @booklist = qw/ 
	bx1  bx2 xx11 xx12 xx21 xx22 xx23 xx31 xx32 xx33 xx34 xx35 /;


for my $book ( @booklist  )
{
	print "Now is downloading: $book\n";
	$bookpage = $website. $book . "/";
	$WORKDIR  =  "D:\\Extra\\Book\\Physics\\" . $book;

	CreatePath($WORKDIR);

	($path, $begin, $end) = get_pgnum_range( $bookpage );
	print "Path: $path, $begin to $end\n";

	#页面1 对应的 页码
	$page1maps = get_who_map_page1( $bookpage ); 

	get_picture( $bookpage, $path, $begin, $end );
}

system("pause");

sub get_pgnum_range
{
	my $bookpage = shift;
	my $all;
	$all = get($bookpage);   #使用lwp::simple 得到的是unicode，
	                         #使用lwp::UserAgent 得到的是GB2312
	my @pglist;
	my $path;

	$all =~s/.*封面//s;      #如果有封面，剔除

	#./201102/t20110217_1021412.htm
	for my $e ( split("\r?\n", $all)  )
	{
		if ($e=~/href="\.\/(*_)(\d+).htm"/)
		{
			$path = $1;
			push @pglist, $2;
		}
	}

	@pglist = sort @pglist;
	return $path, @pglist;
}

sub get_who_map_page1
{
	my $bookpage = shift;
	my $all = get($bookpage);

	$all=~s/\r?\n//g;
	if ( $all=~/\d+_(\d+)\.htm+第/ )
	{
		return $1;
	}
	else
	{
		die "first page code not found! ";
	}
}


sub get_picture
{
	my ($bookpage, $path, $begin, $end) = @_;

	our $page1maps;
	our $WORKDIR;
	my  $all;           #网页内容
	my  $subpage;       #子页面
	my  $pic;           #图片名
	my  $count = 0;     #页码计数
	my  $fname;         #文件名

	#该网页地址是逆序的，书本page+1，网址代码-1

	for (my $n = $end; $n >= $begin; $n-- )
	{
		$subpage = $bookpage . $path . $n . ".htm";

		$all = get( $subpage ) or next;
		if ( $all=~/IMG src="?\.\/(*.jpg)"?/i )  #不一定有""符号
		{
			$pic = $1;
			$subpage =~s /+$/$pic/;

			if ( $n <= $page1maps )
			{
				$count++;
				$fname = sprintf("%03d.jpg", $count);
			}
			else
			{
				$fname = $pic;
			}

			getstore($subpage, $WORKDIR."\\".$fname) or die "$!";
			print "$pic\n";
		}
	}
}

sub CreatePath 
{
    my $path = shift;
    my @arr=split(//, $path);
    my $main;

    $main = shift @arr;  #以盘符开始

    for my $s (@arr)
    {
        $main .= "/" . $s;
        mkdir( $main ) if ( ! -d $main );
    }
}

链接无效，占用了我一分，楼主还我。

Originally posted by zzz19760225 at 2016-7-6 22:14:
链接无效，占用了我一分，楼主还我。

论坛得以保住实属不易。
数据丢失在所难免。

其实是可以访问的，把域名部分改成现在的

http://www.cn-dos.net

改为

http://www.cn-dos.net

以前是瞎子，没看到下面的编程语言，今天看到了，还你五分。

第31楼　523066680	发表于 2010-08-03 20:43
银牌会员　发帖 1,133　积分 2,362
#include <BoysAndGirls.h> /人物性质/ #include <Garden.h> /地点环境我想好了/ #include <Action.h> /各种动作/ int main(int time, char BoysAndGirlsName) { New result; result=meet(boy("John"),girl("Alice")); printf("%s",result.body); /我YY打出一屏幕的字符，字符组成的是一对双胞胎 / / return 2 , 如果输出的ML的字符动画，靠... / return result.babys; } [ Last edited by 523066680 on 2010-9-5 at 19:44* ]

第32楼　523066680	发表于 2010-08-12 22:58
银牌会员　发帖 1,133　积分 2,362
2i5HMABAA&&ABMMA9A&2hHhG39BBSrs29HM#B#BHA#M#B&A#GSX993X3G2:.. S5H#H 广州威立舜电子 XS239irisi5hAH##A#H#BM##ABB323333h&2:.. 5GMAA =.=这是转换来的 S32irrSsXSXXX2&3AAMBA3H#MB#AX2X39395:.. 53AHAHH#AMBM##BB#h2MhS2G9Srr5s99iX32Ss;r3AB#2iA#B##h2X33X2S, 9&BAHBM##B###MM#A3Mh5hA3555X9AHX5XXiSr,,,X##AiiHMH#B22XXX2i, &HHABB###M##M###BM9XA&2SXGGB#Bh9hXSiS;...:&#A#23BBM#&22XG&3, GH&G&MM###AM##AAM39Hh52&HB##&9GAA2iir... ,rMBAA3AM##Bh3hGAA: GBA&&#MAAAAM#AAMGAA3SGMHA##9SAAhA5r;,.... ,5B#A9&M##HAhGh&A; GB#MHHMAAA##AAHGBHAGM#AAHHi;XMS9hS:,..... ,&BA#GH##AAABhAM; GMAM#B#AAA#A#&AMM####HGAh;,rA5rAX,.. .,:;r;;XM#AA&M#A&HM&BAr hMA#A#AA###H&#AAA###AS2i,.:X3,Xh, ,:s5Sir;::rH#A#GAABA#MBAAs 9B##AAAAMA&A#AAA##AB222sssrh:sG, ,;5i:. .,,:3###A&BMBA#BAAi 9A##AAAMGA#AAAABHG;,:,,:rSSs:S, ,:;:,;h#A#Bhr2##MAABAA##H#A5 AAAM#BB##AAA#A#H2;:rrrr:::;;;,...,:;AAAAA,.#&XM#BAA####HHAAX. #MMH#AA#AAABB#HX5AAAAAAB;;;::,....:;,hA2; .;;5AAB#ABMMA##AA9. #AAAAAA#A###HhXXAMrBMAA, .::::,.. .. ,:,,;3AM#A#BB#M#AA&. 2AA#AAA#B#M#M3sriir;r;,.,,,,:::.. ,SAB###BBM&BAAA. SGAAAAAAHM#MM9;;:,. .,,,,,,::,.... . XABA##HBMGH#AA 25#AAAAAMBAM#Br::. ...,,,,,:,..............A#BA##BM#&H#AM, 3XGAAAAAAMA#MA3;;,,,.....,,,,::,........,,,,.:A#BMA#B###M#A#. h92AAAAAAA#AMHAi;::::,,,,,,,:;;r:;:.....,,,,.iA#MhH#####MMA#. 9hXXAA#AAAAA#&hir::::::::,,::;rss;:....,,,,,,HA#AAM99A#A##AH. h&Xh#A#A#AAAAMBS;;:::::::::,,,:::,. .,,:::.sAAB&MBhirr5MAA& hG9AAAMM#AAAAAA#r:;;:::::::,:::,,,:iX,,:::,;AA#AHBHA9S: rAH &GhAAA#GMB&#AA#A#;,;;;;;;::rMHh99HM##:,::,rAAMMHHHH&i:. , :AM HAAMAX#M9BHGAAA#AA5;:;;;;;;;iAAH2si5s..,,iAA##BAHAAG; ,i,5#2 AHA5,rAABAMGAAAAAAAB2r;:;;;;,;ris,:i2i::&AA###HhM&9G;..r:r#2r X2s:rHA#A#AB&A#AAAAAMBhi;;;;;:;riiS55AHG&B##B#&h#G3G2;;;;&2sX ;:;shABXHA#AHAA#AAM##AM#H3i;;;::,::;XMMA25i2##h#A&i2&;:;92ssA ;;iiiBBh&#A#GAH&M#BA#A23hGGh2ir;;;riSsri2XX2S29AAA;2&,:XA2hH2 ;rirrABHH##AA&HAGA#GhHiiS552X33X222ir;;:29SX&2s2HBX&r,SMAGHA5 ;;r;:G#AAMAAAA&H&AHH5HXsiiiiiiiiiis;;;rr5#A3S5hXi2Ai:XABA&&&X [ Last edited by 523066680 on 2010-9-5 at 19:44 ]

第33楼　523066680	发表于 2010-09-05 19:45
银牌会员　发帖 1,133　积分 2,362
[perl] 字符转 UTF-8 编码偶然要用到，某个杂牌手机的T卡通讯录里面的字的储存使用UTF-8编码的 #!/usr/bin/perl open READ,"<next.x"; $lv_=00000000; $lv_=11000000; $lv_=11100000; $lv_=11110000; $lv_=11111000; $lv_=11111100; use utf8; $a="我"; printf "%s\n",&code2utf(ord $a); print "END!"; <STDIN>; sub code2utf { my ($code,$bin,$level,$hex,$tmp,$result); $code=$_; $bin=sprintf "%b",$code; $level=1; if (length($bin)>7) { while (length($bin)>=6) { $level+=1; $bin=~s/.{6}$//; $hex=sprintf "%X",&bin2int(10 . $&); $result=$hex ."-". $result; } } $tmp=substr($lv_,0,8-length($bin)); $hex=sprintf "%X",&bin2int($tmp . $bin); $result=$hex ."-". $result; $result=~s/-$//; $result; #result - string } sub bin2int { my ($a,$str,$all,$act); $a=$_; $str=""; $all=0; $act=0; do { $b=($a % 10) * (2$act); # as ^ of the calc $all+=$b; $act+=1; $a=int ($a/10); } until ($a==0); int ($all); }

第34楼　yaoyao1220	发表于 2010-11-02 15:57
初级用户　发帖 66　积分 95
看到脑袋晕了。。。

第35楼　cutebe	发表于 2014-04-07 20:29
新手上路　发帖 4　积分 10
Re: 523066680编辑区 Originally posted by 523066680 at 2009-02-13 18:49: @echo off &setlocal enabledelayedexpansion set /p inp=" : " call :funa na %inp% call :funa nb %inp:* =% set /a lpna=0,lpr=-1 :lpna set /a lpna+=1,lpnb=0,lpr+=1,lp=lpr :lpnb set /a lpnb+=1,lp+=1 :::::::::::::::::::::::::: set /a cup%lp%+=na%lpna%nb%lpnb% set /a tlpa=lp,tlpb=tlpa+1 :cuplp set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10 if !cup%tlpb%! gtr 9 ( set /a tlpa+=1,tlpb=tlpa+1 goto :cuplp ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1) :::::::::::::::::::::::::: if %lpnb% lss %nb% (goto :lpnb) if %lpna% lss %na% (goto :lpna) for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul echo, echo,wscript.echo %inp: =%>x.vbs cscript //nologo x.vbs pause>nul &exit :funa set %1=%2 set funaa=0 :funaa set /a funaa+=1 set %1%funaa%=!%1:~-%funaa%,1! if not "!%1:~%funaa%!"=="" (goto :funaa) set /a %1=funaa 版本2 @echo off &setlocal enabledelayedexpansion set /p inp=" : " call :naxnb %inp% pause :naxnb set numa=%1 set numb=%2 set /a la=0,lpr=-1 :la set /a la+=1,lb=0,lpr+=1,lp=lpr :lb set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1 ::::::::::::::::::::::::: set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1! :cuplp set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10 if !cup%tlpb%! gtr 9 ( set /a tlpa+=1,tlpb=tlpa+1 goto :cuplp ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1) :::::::::::::::::::::::::: if not "!numb:~%lb%!"=="" (goto :lb) if not "!numa:~%la%!"=="" (goto :la) for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul ::::::::vbs验证一下::::::::::: echo, echo,wscript.echo %inp: =%>x.vbs cscript //nologo x.vbs pause>nul &exit [ Last edited by 523066680 on 2009-2-21 at 10:46* ] 命令行模式测试：真的可以加吗？怎么退出？靠！

第36楼　523066680	发表于 2015-06-13 14:42
银牌会员　发帖 1,133　积分 2,362
咦还有人上来？

第37楼　yishanju	发表于 2015-10-14 14:50
银牌会员　发帖 1,357　积分 1,488
哈哈，你不也还上来。

第38楼　523066680	发表于 2016-07-06 20:14
银牌会员　发帖 1,133　积分 2,362
[Perl]批量下载高中物理必修选修电子课本（jpg =info Edit: vicyang Mail: 523066680@163.com Date: 2016-06 =cut use v5.16; use utf8; use Encode; use LWP::UserAgent; use LWP::Simple qw/getstore get/; use IO::Handle; STDOUT->autoflush(1); our $website = "http://www.pep.com.cn/gzwl/jszx/tbjx/kb/dzkb/"; #our $website = "\x68\x74\x74\x70\x3A\x2F\x2F\x77\x77\x77\x2E\x70\x65\x70\x2E\x63\x6F\x6D\x2E\x63\x6E\x2F\x67\x7A\x77\x6C\x2F\x6A\x73\x7A\x78\x2F\x74\x62\x6A\x78\x2F\x6B\x62\x2F\x64\x7A\x6B\x62\x2F"; our $bookpage; our $WORKDIR; our $page1maps; my ($path, $begin, $end); my @booklist = qw/ bx1 bx2 xx11 xx12 xx21 xx22 xx23 xx31 xx32 xx33 xx34 xx35 /; for my $book ( @booklist ) { print "Now is downloading: $book\n"; $bookpage = $website. $book . "/"; $WORKDIR = "D:\\Extra\\Book\\Physics\\" . $book; CreatePath($WORKDIR); ($path, $begin, $end) = get_pgnum_range( $bookpage ); print "Path: $path, $begin to $end\n"; #页面1 对应的页码 $page1maps = get_who_map_page1( $bookpage ); get_picture( $bookpage, $path, $begin, $end ); } system("pause"); sub get_pgnum_range { my $bookpage = shift; my $all; $all = get($bookpage); #使用lwp::simple 得到的是unicode， #使用lwp::UserAgent 得到的是GB2312 my @pglist; my $path; $all =~s/.封面//s; #如果有封面，剔除 #./201102/t20110217_1021412.htm for my $e ( split("\r?\n", $all) ) { if ($e=~/href="\.\/(_)(\d+).htm"/) { $path = $1; push @pglist, $2; } } @pglist = sort @pglist; return $path, @pglist; } sub get_who_map_page1 { my $bookpage = shift; my $all = get($bookpage); $all=~s/\r?\n//g; if ( $all=~/\d+_(\d+)\.htm+第/ ) { return $1; } else { die "first page code not found! "; } } sub get_picture { my ($bookpage, $path, $begin, $end) = @_; our $page1maps; our $WORKDIR; my $all; #网页内容 my $subpage; #子页面 my $pic; #图片名 my $count = 0; #页码计数 my $fname; #文件名 #该网页地址是逆序的，书本page+1，网址代码-1 for (my $n = $end; $n >= $begin; $n-- ) { $subpage = $bookpage . $path . $n . ".htm"; $all = get( $subpage ) or next; if ( $all=~/IMG src="?\.\/(*.jpg)"?/i ) #不一定有""符号 { $pic = $1; $subpage =~s /+$/$pic/; if ( $n <= $page1maps ) { $count++; $fname = sprintf("%03d.jpg", $count); } else { $fname = $pic; } getstore($subpage, $WORKDIR."\\".$fname) or die "$!"; print "$pic\n"; } } } sub CreatePath { my $path = shift; my @arr=split(//, $path); my $main; $main = shift @arr; #以盘符开始 for my $s (@arr) { $main .= "/" . $s; mkdir( $main ) if ( ! -d $main ); } }

第39楼　zzz19760225	发表于 2016-07-06 22:14
超级版主　发帖 2,020　积分 3,673
链接无效，占用了我一分，楼主还我。

第40楼　doslike	发表于 2016-07-26 14:52
版主　发帖 285　积分 326　来自黑龙江省
Originally posted by zzz19760225 at 2016-7-6 22:14: 链接无效，占用了我一分，楼主还我。论坛得以保住实属不易。数据丢失在所难免。

第41楼　523066680	发表于 2016-09-28 11:43
银牌会员　发帖 1,133　积分 2,362
其实是可以访问的，把域名部分改成现在的 http://www.cn-dos.net 改为 http://www.cn-dos.net

第42楼　zzz19760225	发表于 2016-09-28 13:19
超级版主　发帖 2,020　积分 3,673
以前是瞎子，没看到下面的编程语言，今天看到了，还你五分。

第43楼　zzz19760225	发表于 2017-12-04 13:49
超级版主　发帖 2,020　积分 3,673
路过