523066680 Editing Area - China DOS Union Forum - China DOS Union

#include <BoysAndGirls.h> /*Character nature*/ #include <Garden.h> /*I've thought about the location environment*/ #include <Action.h> /*All kinds of actions*/ int main(int time, char *BoysAndGirlsName) { New result; result=meet(boy("John"),girl("Alice")); printf("%s",result.body); /*IYY types out a screen full of characters, and the characters form a pair of twins */ /* return 2, if the output ML character animation, rely on... */ 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 Guangzhou Weilishun Electronics XS239irisi5hAH##A#H#BM##ABB323333h&2:..
5GMAA =.= This is converted 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 ]

Accidentally needed, the characters in the T-card address book of a certain brand of mobile phone use UTF-8 encoding for storage


#!/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);
}

Seeing this makes my head spin...

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

Version 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 verification::::::::::: 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 ]

Command line mode test:
Can it really add?
How to exit? Damn!

Hey, there are still people coming up?

Hehe, you also came online.

```
=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";

# Page 1 corresponding page number
$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); # What is obtained using lwp::simple is unicode,
# What is obtained using lwp::UserAgent is GB2312
my @pglist;
my $path;

$all =~ s/.*封面//s; # If there is a cover, remove it

#./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; # Web page content
my $subpage; # Sub-page
my $pic; # Picture name
my $count = 0; # Page number count
my $fname; # File name

# This web page address is in reverse order, book page +1, website code -1

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

$all = get($subpage) or next;
if ($all =~ /IMG src="?\.\/(*.jpg)"?/i) # There may not be "" symbols
{
$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; # Start with the drive letter

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

```

The link is invalid, it took one point from me, the thread starter give it back to me.

Originally posted by zzz19760225 at 2016-7-6 22:14:
The link is invalid, it took me a minute, the owner returns it to me.

It is not easy to keep the forum.
Data loss is inevitable.

Actually, it can be accessed. Change the domain part to the current one:

http://www.cn-dos.net

Change to

http://www.cn-dos.net

I was blind before and didn't see the programming languages below. I see them today, and here's five points for you.

Just passing through

Floor31　523066680	Posted 2010-08-03 20:43
银牌会员　Posts 1,133　Credits 2,361
#include <BoysAndGirls.h> /Character nature/ #include <Garden.h> /I've thought about the location environment/ #include <Action.h> /All kinds of actions/ int main(int time, char BoysAndGirlsName) { New result; result=meet(boy("John"),girl("Alice")); printf("%s",result.body); /IYY types out a screen full of characters, and the characters form a pair of twins / / return 2, if the output ML character animation, rely on... / return result.babys; } [ Last edited by 523066680 on 2010-9-5 at 19:44* ]

Floor32　523066680	Posted 2010-08-12 22:58
银牌会员　Posts 1,133　Credits 2,361
2i5HMABAA&&ABMMA9A&2hHhG39BBSrs29HM#B#BHA#M#B&A#GSX993X3G2:.. S5H#H Guangzhou Weilishun Electronics XS239irisi5hAH##A#H#BM##ABB323333h&2:.. 5GMAA =.= This is converted 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 ]

Floor33　523066680	Posted 2010-09-05 19:45
银牌会员　Posts 1,133　Credits 2,361
Accidentally needed, the characters in the T-card address book of a certain brand of mobile phone use UTF-8 encoding for storage #!/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); }

Floor34　yaoyao1220	Posted 2010-11-02 15:57
初级用户　Posts 66　Credits 95
Seeing this makes my head spin...

Floor35　cutebe	Posted 2014-04-07 20:29
新手上路　Posts 4　Credits 10
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 Version 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 verification::::::::::: 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* ] Command line mode test: Can it really add? How to exit? Damn!

Floor36　523066680	Posted 2015-06-13 14:42
银牌会员　Posts 1,133　Credits 2,361
Hey, there are still people coming up?

Floor37　yishanju	Posted 2015-10-14 14:50
银牌会员　Posts 1,357　Credits 1,488
Hehe, you also came online.

Floor38　523066680	Posted 2016-07-06 20:14
银牌会员　Posts 1,133　Credits 2,361
``` =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"; # Page 1 corresponding page number $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); # What is obtained using lwp::simple is unicode, # What is obtained using lwp::UserAgent is GB2312 my @pglist; my $path; $all =~ s/.封面//s; # If there is a cover, remove it #./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; # Web page content my $subpage; # Sub-page my $pic; # Picture name my $count = 0; # Page number count my $fname; # File name # This web page address is in reverse order, book page +1, website code -1 for (my $n = $end; $n >= $begin; $n--) { $subpage = $bookpage . $path . $n . ".htm"; $all = get($subpage) or next; if ($all =~ /IMG src="?\.\/(*.jpg)"?/i) # There may not be "" symbols { $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; # Start with the drive letter for my $s (@arr) { $main .= "/" . $s; mkdir($main) if (! -d $main); } } ```

Floor39　zzz19760225	Posted 2016-07-06 22:14
超级版主　Posts 2,020　Credits 3,673
The link is invalid, it took one point from me, the thread starter give it back to me.

Floor40　doslike	Posted 2016-07-26 14:52
版主　Posts 285　Credits 326　From 黑龙江省
Originally posted by zzz19760225 at 2016-7-6 22:14: The link is invalid, it took me a minute, the owner returns it to me. It is not easy to keep the forum. Data loss is inevitable.

Floor41　523066680	Posted 2016-09-28 11:43
银牌会员　Posts 1,133　Credits 2,361
Actually, it can be accessed. Change the domain part to the current one: http://www.cn-dos.net Change to http://www.cn-dos.net

Floor42　zzz19760225	Posted 2016-09-28 13:19
超级版主　Posts 2,020　Credits 3,673
I was blind before and didn't see the programming languages below. I see them today, and here's five points for you.

Floor43　zzz19760225	Posted 2017-12-04 13:49
超级版主　Posts 2,020　Credits 3,673
Just passing through