External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2026-01-26 21:29:17 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

spjspj - Add in a new way to allow just the Face Art for cards into the viewer.

Browse source
This commit is contained in:
spjspj 2017-11-18 01:37:10 +11:00
parent 19c9689f89
commit 4247954318
8 changed files with 32394 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Utils/cut.pl
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
##
# File : get_all.pl
# File : cut.pl
# Author : spjspj
##
@ -22,6 +22,7 @@ use POSIX qw(strftime);
print (" cut.pl full_text.txt keys 0 filegrep\n");
print (" cut.pl full_text.txt 0 0 make_code_bat\n");
print (" dir /a /b /s *.java | cut.pl stdin 0 0 make_code_bat > bob.bat\n");
print (" dir /a /b /s *.xml | cut.pl stdin 0 0 make_code_bat > bob_xml.bat\n");
print (" cut.pl d:\\perl_programs output.*txt 7 age_dir | cut.pl list . 0 grep\n");
print (" cut.pl bob.txt 0 0 uniquelines \n");
print (" cut.pl file 0 0 strip_http\n");
@ -331,16 +332,27 @@ use POSIX qw(strftime);
{
my $i;
{
my $url = $term;
print ("Download :$url:\n");
my $content = get $url;
print ("Saw " . length ($content) . " bytes!\n");
print ("Save in $helper\n");
open OUTPUT, "> " . $helper or die "No dice!";
binmode (OUTPUT);
print OUTPUT $content;
close OUTPUT;
print $url, " >>> ", $helper, "\n";
if (!(-f "$helper"))
{
my $url = $term;
print ("Download :$url:\n");
my $content = get $url;
print ("Saw " . length ($content) . " bytes!\n");
print ("Save in $helper\n");
open OUTPUT, "> " . $helper or die "No dice!";
binmode (OUTPUT);
print OUTPUT $content;
close OUTPUT;
print $url, " >>> ", $helper, "\n";
}
else
{
print ("Found $helper existed already..\n");
if (-s "$helper" == 0)
{
`del "$helper"`;
}
}
}
}
if ($operation eq "grep")
@ -898,5 +910,4 @@ use POSIX qw(strftime);
}
}
}
}