07/03/13 14:40:00
次にエクスプローラの使い方の質問がきてもおかしくないな
636:デフォルトの名無しさん
07/03/13 14:41:23
ダブルクリックがうまくできませんという相談がきてもおかしくないな
637:デフォルトの名無しさん
07/03/13 14:44:00
>>635-636
スレ違い君(594,605,627-628など)以上におかしいのは滅多に無いと思うから安心して
病院に行きなさい
638:デフォルトの名無しさん
07/03/13 15:48:19
おかしい人は､世間一般から見た｢おかしい人｣を正確に判断できません。637とかね。
639:デフォルトの名無しさん
07/03/13 15:52:47
検索ワードを入力してGoogleに検索させて
その結果を一覧表示するコードはどう書けばいいでしょうか。
640:デフォルトの名無しさん
07/03/13 16:10:31
そういう場合perlとか使うんじゃないか？
641:デフォルトの名無しさん
07/03/13 17:40:54
>>639
ｽﾚﾘﾝｸ(win板:573番)
でURLを指定すれば
642:デフォルトの名無しさん
07/03/13 18:29:45
@echo off
setlocal enabledelayedexpansion
set n=0
for /f "skip=14 usebackq" %%i in ("%~f0") do call :set_str "%~f0" %%i
set /a num1=%RANDOM%%%%n%
:set_num2
set /a num2=%RANDOM%%%%n%
if %num1%==%num2% goto set_num2
echo 【!str[%num1%]!】バッチファイルプログラミング 4.bat【!str[%num2%]!】
goto :eof
:set_str
set str[%n%]=%2
set /a n+=1
goto :eof
誘導厨
ググれカス
WSH
JSCRIPT
スルー
スレ違い君
病人
発達障害
統合失調症
高機能自閉症
643:デフォルトの名無しさん
07/03/13 19:02:32
無駄が多いなぁ
644:デフォルトの名無しさん
07/03/13 19:18:02
スレ違い君はコテ付けてくれよ
645:デフォルトの名無しさん
07/03/13 19:22:55
スレ違いを理解できないお馬鹿君はコテ付けてくれよ
646:デフォルトの名無しさん
07/03/13 19:57:24
>>645
スレ違い君、こんばんは。
647:デフォルトの名無しさん
07/03/13 19:59:21
なんでそんなに簡単に踊るの？
648:デフォルトの名無しさん
07/03/14 01:37:51
call :select 誘導厨 ググれカス WSH JSCRIPT スルー スレ違い 病人 発達障害 統合失調症 高機能自閉症
goto :eof
:select
call echo 【%%%num1%】バッチファイルプログラミング 4.bat【%%%num2%】
649:デフォルトの名無しさん
07/03/14 18:10:39
質問です。
もしかしてスレ違いです。
でもここはいい人ばかりなので、快く教えてくれると思います。
echo %date:/=%
とすると今日のYYYYMMDDを表示できますが、YYYYMMの部分だけ表示したいのです。
どうすれば良いでしょうか？
echo %date:/=% | cut -c1-6
とかできれば良いのですがSFUは入ってません。
すいませんが教えてください。
650:デフォルトの名無しさん
07/03/14 18:17:51
echo %DATE:~,4%%DATE:~5,2%
set hoge=%DATE:/=%
echo %hoge:~,6%
なんで置換知っていて切り出し知らないかなぁ?
651:デフォルトの名無しさん
07/03/14 18:26:27
>>650
ありがとうございます。
部分的にしか知らないからそんな使い方があるとは思いませんでした。
(*ﾟ∀ﾟ)=3 MS-DOSｽｹﾞｰ
652:デフォルトの名無しさん
07/03/14 18:31:28
MS-DOSでなくてWindows(NT系)のCMD.EXEの機能だよん
653:デフォルトの名無しさん
07/03/14 18:45:09
こういうのが絡むときの一括処理はパールで作るしかないって思ってたけど、
バッチでも十分っぽいな…
654:デフォルトの名無しさん
07/03/14 18:50:35
馬鹿のやること
655:デフォルトの名無しさん
07/03/14 19:03:28
可読性を考えるとPerlやJScriptのほうが良いことも多いだろうが
656:デフォルトの名無しさん
07/03/14 19:14:07
箸じゃなくても歯ブラシでも食べれることに気がついた
657:デフォルトの名無しさん
07/03/14 19:28:35
しかしナイフとフォークでは食べられない656であった
658:デフォルトの名無しさん
07/03/14 20:39:30
m9（・∀・）悪口書き込みたいが為だけにスタンバってるだろ！
659:デフォルトの名無しさん
07/03/14 20:42:39
自己紹介？
660:俺もなー
07/03/14 22:01:50
>>655
でも、余分なインストールが不要と言うメリットは捨てがたい時もあるしな。
661:俺もなー
07/03/14 22:03:15
あっ、JScript / VBScript なら、インストールは不要か...。
662:デフォルトの名無しさん
07/03/15 01:41:17
>>641
URLのときは、
@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0" %1
GOTO :EOF
@end
var htmlfile=WScript.GetObject(WScript.Arguments.Item(0));
while(htmlfile.readyState!='complete') WScript.Sleep(100);
WScript.Echo(htmlfile.body.innerText);
663:デフォルトの名無しさん
07/03/15 09:11:02
>>662
すごいなマジで
cmd.exeってかなりできる子だったんだな
664:デフォルトの名無しさん
07/03/15 09:27:42
いやcmd.exeじゃなくてcscript.exeだろ
まあ.batファイルに記述してるなら
cscript.exeを使うのはこのスレ的には問題ないけどね
665:デフォルトの名無しさん
07/03/15 10:51:17
batlでhttp get するプログラム
@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl -w
#line 15
# $Id: lwp-request,v 2.1 2002/01/03 02:07:02 gisle Exp $
#
# Simple user agent using LWP library.
666:続き
07/03/15 10:52:48
=head1 NAME
lwp-request, GET, HEAD, POST - Simple WWW user agent
=head1 SYNOPSIS
lwp-request [-aeEdvhx] [-m method] [-b <base URL>] [-t <timeout>]
[-i <if-modified-since>] [-c <content-type>] [-C <credentials>]
[-p <proxy-url>] [-o <format>] <url>...
=head1 DESCRIPTION
This program can be used to send requests to WWW servers and your
local file system. The request content for POST and PUT
methods is read from stdin. The content of the response is printed on
stdout. Error messages are printed on stderr. The program returns a
status value indicating the number of URLs that failed.
667:つづく
07/03/15 10:53:50
The options are:
=over 4
=item -m <method>
Set which method to use for the request. If this option is not used,
then the method is derived from the name of the program.
=item -f
Force request through, even if the program believes that the method is
illegal. The server might reject the request eventually.
=item -b <uri>
This URI will be used as the base URI for resolving all relative URIs
given as argument.
=item -t <timeout>
Set the timeout value for the requests. The timeout is the amount of
time that the program will wait for a response from the remote server
before it fails. The default unit for the timeout value is seconds.
You might append "m" or "h" to the timeout value to make it minutes or
hours, respectively. The default timeout is '3m', i.e. 3 minutes.
668:つづく
07/03/15 10:54:33
=item -i <time>
Set the If-Modified-Since header in the request. If I<time> it the
name of a file, use the modification timestamp for this file. If
I<time> is not a file, it is parsed as a literal date. Take a look at
L<HTTP::Date> for recogniced formats.
=item -c <content-type>
Set the Content-Type for the request. This option is only allowed for
requests that take a content, i.e. POST and PUT. You can
force methods to take content by using the C<-f> option together with
C<-c>. The default Content-Type for POST is
C<application/x-www-form-urlencoded>. The default Content-type for
the others is C<text/plain>.
=item -p <proxy-url>
Set the proxy to be used for the requests. The program also loads
proxy settings from the environment. You can disable this with the
C<-P> option.
669:つづく
07/03/15 10:55:29
=item -H <header>
Send this HTTP header with each request. You can specify several, e.g.:
lwp-request \
-H 'Referer: URLﾘﾝｸ(other.url)' \
-H 'Host: somehost' \
URLﾘﾝｸ(this.url)
=item -C <username>:<password>
Provide credentials for documents that are protected by Basic
Authentication. If the document is protected and you did not specify
the username and password with this option, then you will be prompted
to provide these values.
670:デフォルトの名無しさん
07/03/15 11:05:06
ショボすぎ
671:つづく
07/03/15 11:09:13
=back
The following options controls what is displayed by the program:
=over 4
=item -u
Print request method and absolute URL as requests are made.
=item -U
Print request headers in addition to request method and absolute URL.
=item -s
Print response status code. This option is always on for HEAD requests.
=item -S
Print response status chain. This shows redirect and autorization
requests that are handled by the library.
672:つづく
07/03/15 11:09:49
=item -e
Print response headers. This option is always on for HEAD requests.
=item -d
Do B<not> print the content of the response.
=item -o <format>
Process HTML content in various ways before printing it. If the
content type of the response is not HTML, then this option has no
effect. The legal format values are; I<text>, I<ps>, I<links>,
I<html> and I<dump>.
If you specify the I<text> format then the HTML will be formatted as
plain latin1 text. If you specify the I<ps> format then it will be
formatted as Postscript.
The I<links> format will output all links found in the HTML document.
Relative links will be expanded to absolute ones.
The I<html> format will reformat the HTML code and the I<dump> format
will just dump the HTML syntax tree.
673:つづく
07/03/15 11:10:20
=item -v
Print the version number of the program and quit.
=item -h
Print usage message and quit.
=item -x
Extra debugging output.
=item -a
Set text(ascii) mode for content input and output. If this option is not
used, content input and output is done in binary mode.
=back
Because this program is implemented using the LWP library, it will
only support the protocols that LWP supports.
674:つづく
07/03/15 11:12:00
=head1 SEE ALSO
L<lwp-mirror>, L<LWP>
=head1 COPYRIGHT
Copyright 1995-1999 Gisle Aas.
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 AUTHOR
Gisle Aas <gisle@aas.no>
=cut
$progname = $0;
$progname =~ s,.*[\\/],,; # use basename only
$progname =~ s/\.\w*$//; # strip extension, if any
$VERSION = sprintf("%d.%02d", q$Revision: 2.1 $ =~ /(\d+)\.(\d+)/);
675:つづく
07/03/15 11:13:02
require LWP;
require LWP::Debug;
use URI;
use URI::Heuristic qw(uf_uri);
use HTTP::Status qw(status_message);
use HTTP::Date qw(time2str str2time);
# This table lists the methods that are allowed. It should really be
# a superset for all methods supported for every scheme that may be
# supported by the library. Currently it might be a bit too HTTP
# specific. You might use the -f option to force a method through.
#
# "" = No content in request, "C" = Needs content in request
#
%allowed_methods = (
GET => "",
HEAD => "",
POST => "C",
PUT => "C",
DELETE => "",
TRACE => "",
OPTIONS => "",
);
676:つづく
07/03/15 11:15:20
=back
The following options controls what is displayed by the program:
=over 4
=item -u
Print request method and absolute URL as requests are made.
=item -U
Print request headers in addition to request method and absolute URL.
=item -s
Print response status code. This option is always on for HEAD requests.
=item -S
Print response status chain. This shows redirect and autorization
requests that are handled by the library.
677:つづく
07/03/15 11:16:12
=item -i <time>
Set the If-Modified-Since header in the request. If I<time> it the
name of a file, use the modification timestamp for this file. If
I<time> is not a file, it is parsed as a literal date. Take a look at
L<HTTP::Date> for recogniced formats.
=item -c <content-type>
Set the Content-Type for the request. This option is only allowed for
requests that take a content, i.e. POST and PUT. You can
force methods to take content by using the C<-f> option together with
C<-c>. The default Content-Type for POST is
C<application/x-www-form-urlencoded>. The default Content-type for
the others is C<text/plain>.
=item -p <proxy-url>
Set the proxy to be used for the requests. The program also loads
proxy settings from the environment. You can disable this with the
C<-P> option.
678:デフォルトの名無しさん
07/03/15 11:23:36
>675のつづき
# We make our own specialization of LWP::UserAgent that asks for
# user/password if document is protected.
{
package RequestAgent;
@ISA = qw(LWP::UserAgent);
sub new
{
my $self = LWP::UserAgent::new(@_);
$self->agent("lwp-request/$main::VERSION");
$self;
}
679:つづく
07/03/15 11:24:36
sub get_basic_credentials
{
my($self, $realm, $uri) = @_;
if ($main::options{'C'}) {
return split(':', $main::options{'C'}, 2);
} elsif (-t) {
my $netloc = $uri->host_port;
print "Enter username for $realm at $netloc: ";
my $user = <STDIN>;
chomp($user);
return (undef, undef) unless length $user;
print "Password: ";
system("stty -echo");
my $password = <STDIN>;
system("stty echo");
print "\n"; # because we disabled echo
chomp($password);
return ($user, $password);
} else {
return (undef, undef)
}
}
}
680:つづく
07/03/15 11:25:13
$method = uc(lc($progname) eq "lwp-request" ? "GET" : $progname);
# Parse command line
use Getopt::Long;
my @getopt_args = (
'a', # content i/o in text(ascii) mode
'm=s', # set method
'f', # make request even if method is not in %allowed_methods
'b=s', # base url
't=s', # timeout
'i=s', # if-modified-since
'c=s', # content type for POST
'C=s', # credentials for basic authorization
'H=s@', # extra headers, form "Header: value string"
#
'u', # display method, URL and headers of request
'U', # display request headers also
's', # display status code
'S', # display whole chain of status codes
'e', # display response headers (default for HEAD)
'd', # don't display content
#
'h', # print usage
'v', # print version
#
'x', # extra debugging info
'p=s', # proxy URL
'P', # don't load proxy setting from environment
#
'o=s', # output format
);
681:つづく
07/03/15 11:25:53
Getopt::Long::config("noignorecase", "bundling");
unless (GetOptions(\%options, @getopt_args)) {
usage();
}
if ($options{'v'}) {
require LWP;
my $DISTNAME = 'libwww-perl-' . LWP::Version();
die <<"EOT";
This is lwp-request version $VERSION ($DISTNAME)
Copyright 1995-1999, Gisle Aas.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
EOT
}
682:つづく
07/03/15 11:26:32
usage() if $options{'h'} || !@ARGV;
LWP::Debug::level('+') if $options{'x'};
# Create the user agent object
$ua = RequestAgent->new;
# Load proxy settings from *_proxy environment variables.
$ua->env_proxy unless $options{'P'};
$method = uc($options{'m'}) if defined $options{'m'};
if ($options{'f'}) {
if ($options{'c'}) {
$allowed_methods{$method} = "C"; # force content
} else {
$allowed_methods{$method} = "";
}
} elsif (!defined $allowed_methods{$method}) {
die "$progname: $method is not an allowed method\n";
}
683:つづき
07/03/15 11:26:52
>679のつづき
=head1 SEE ALSO
L<lwp-mirror>, L<LWP>
=head1 COPYRIGHT
Copyright 1995-1999 Gisle Aas.
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 AUTHOR
Gisle Aas <gisle@aas.no>
=cut
$progname = $0;
$progname =~ s,.*[\\/],,; # use basename only
$progname =~ s/\.\w*$//; # strip extension, if any
$VERSION = sprintf("%d.%02d", q$Revision: 2.1 $ =~ /(\d+)\.(\d+)/);
684:つづく
07/03/15 11:27:39
=item -i <time>
Set the If-Modified-Since header in the request. If I<time> it the
name of a file, use the modification timestamp for this file. If
I<time> is not a file, it is parsed as a literal date. Take a look at
L<HTTP::Date> for recogniced formats.
=item -c <content-type>
Set the Content-Type for the request. This option is only allowed for
requests that take a content, i.e. POST and PUT. You can
force methods to take content by using the C<-f> option together with
C<-c>. The default Content-Type for POST is
C<application/x-www-form-urlencoded>. The default Content-type for
the others is C<text/plain>.
=item -p <proxy-url>
Set the proxy to be used for the requests. The program also loads
proxy settings from the environment. You can disable this with the
C<-P> option.
685:デフォルトの名無しさん
07/03/15 11:33:20
これは悪い嵐ですね
686:デフォルトの名無しさん
07/03/15 11:36:24
＿＿＿
／´. _, -―-､ヽ、
./ l´［☆ｨTfﾍﾏ､ ヽ
｜ | |ィｹﾘﾉ |ト｝!l|
｜ _| ﾚｧ予 伝yﾘ| ,..、
| fr| 《｛_丿 Lｊﾊ∥ _,ノ/｀ｉl ／ / 、``＿ .┼┐
| ゞ|｜''' r‐ｧ｀,ツｲイ´ ﾊ ｉl / | / /
｜ | ｢｀}Ｔ 云'I｢|｛ {::::{ V ﾘ ＼
｜| Ｎ ｛｀ヾｰ弋ｲﾉ｀衣√｀ヾノ
从 |、
687:デフォルトの名無しさん
07/03/15 11:37:00
どうして、どこかにうｐるという選択幅が思いつかなかったんだろうな。
688:デフォルトの名無しさん
07/03/15 11:43:48
しかも大半が無意味に近いんだよな。
689:デフォルトの名無しさん
07/03/15 11:45:13
自分の作ったものを誇示したかったんじゃないの？
テキストエディタで見ればたいしたものではないけど
数行以下のレスがほとんどのここに貼れば､ちょっとは凄そうに見えるじゃん。
実際には内容が"凄い"んじゃなくて､"凄く"邪魔なだけなんだけどねw
690:デフォルトの名無しさん
07/03/15 11:46:43
>>665-684
そのレス数20。文句言われないわけがない。
問い詰めたい…。なぜこんな荒業を炸裂させたのかを。
691:デフォルトの名無しさん
07/03/15 12:03:53
2000サーバー上で文字列をテキストファイルにリダイレクトする際に、改行をいれる方法を教えてください。
お願いします。
692:デフォルトの名無しさん
07/03/15 12:05:31
いくつかゴミが入ってるよ
せめてトリップ付ければ､ああいう邪魔はされなかっただろうし
例え邪魔されても､邪魔した方が哀れなだけだったんだがな
693:デフォルトの名無しさん
07/03/15 12:53:06
>>691
echo. >> hoge.txt
ってのは？
694:６９１
07/03/15 13:55:24
>>693
OKでした！ありがとうございました。
ていうか愚問スレ汚しスマソ
695:デフォルトの名無しさん
07/03/15 14:06:29
windowsで実行しているExeを定期的に監視して、
落ちていたら自動実行することってできませんか？
696:デフォルトの名無しさん
07/03/15 14:08:18
if文で複数の条件を書く方法を教えてください。
条件AとBとCが真のときにコマンドを実行したいのですが。
697:デフォルトの名無しさん
07/03/15 14:27:56
if ($method eq "HEAD") {
$options{'s'} = 1;
$options{'e'} = 1 unless $options{'d'};
$options{'d'} = 1;
}
if (defined $options{'t'}) {
$options{'t'} =~ /^(\d+)([smh])?/;
die "$progname: Illegal timeout value!\n" unless defined $1;
$timeout = $1;
if (defined $2) {
$timeout *= 60 if $2 eq "m";
$timeout *= 3600 if $2 eq "h";
}
$ua->timeout($timeout);
}
if (defined $options{'i'}) {
if (-e $options{'i'}) {
$time = (stat _)[9];
} else {
$time = str2time($options{'i'});
die "$progname: Illegal time syntax for -i option\n"
unless defined $time;
}
$options{'i'} = time2str($time);
}
698:デフォルトの名無しさん
07/03/15 14:29:03
$content = undef;
if ($allowed_methods{$method} eq "C") {
# This request needs some content
unless (defined $options{'c'}) {
# set default content type
$options{'c'} = ($method eq "POST") ?
"application/x-www-form-urlencoded"
: "text/plain";
} else {
die "$progname: Illegal Content-type format\n"
unless $options{'c'} =~ m,^[\w\-]+/[\w\-]+(?:\s*;.*)?$,
}
print "Please enter content ($options{'c'}) to be ${method}ed:\n"
if -t;
binmode STDIN unless -t or $options{'a'};
$content = join("", <STDIN>);
} else {
die "$progname: Can't set Content-type for $method requests\n"
if defined $options{'c'};
}
699:デフォルトの名無しさん
07/03/15 18:51:16
バッチ以外はスレ違い
700:デフォルトの名無しさん
07/03/15 19:37:24
700＼(^o^)／!
701:デフォルトの名無しさん
07/03/15 19:39:01
まあ確かにバッチには違いないが長すぎたのが残念
702:デフォルトの名無しさん
07/03/15 19:46:50
>>696
単にネストすればいいだけじゃん
一応言っておくが､ネスト以外でとか､ひとつのif文でとか､条件後出ししないでね
703:デフォルトの名無しさん
07/03/15 20:11:42
>>695
↓のバッチでExeを起動するのはどうでしょう。
@echo off
:loop
start /wait …….exe
goto loop
704:デフォルトの名無しさん
07/03/15 20:14:23
ウイルスの作り方
705:デフォルトの名無しさん
07/03/15 21:01:40
>>704
病院行って来館してる患者全員とキスしまくる
706:デフォルトの名無しさん
07/03/15 21:39:26
質問する前にGoogleで検索しましょう。URLﾘﾝｸ(www.google.co.jp)
プログラム・ソフトの使い方はPC初心者板やソフトウェア板へ。
ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。
707:デフォルトの名無しさん
07/03/15 23:23:06
>>695
バッチ単体では厳しいな。
cscript 使うなら WMI で作ったことあるけど。
708:デフォルトの名無しさん
07/03/16 00:32:24
@rem 彼はもしかしてアスペルガー
709:デフォルトの名無しさん
07/03/16 09:11:15
Cygwinのps -esWとか
710:デフォルトの名無しさん
07/03/16 17:38:37
>>695
>>87,>>94
711:デフォルトの名無しさん
07/03/17 00:41:35
バッチで、あるテキストファイルが開かれていたらそのまま、開かれていなかったら開く、というのをやりたいんだが、良い案ある？
テキストファイルを開くのは任意のエディタを使う。
712:デフォルトの名無しさん
07/03/17 01:06:30
エディタに因って開いてるファイルを得る方法は異なるわけだが､
その｢任意のエディタ｣ってのが開いてるファイルを標準出力に列挙するようなコマンドツール作って
そいつの結果をfor /fで当たればいいんじゃね？
というか普通エディタって､既に開いてるファイルをコマンドラインで渡しても
二重で開くことはないから､開いてる開いてないに関係なく､
単純にそのファイルをエディタに渡してやればいいような気もするが。
713:デフォルトの名無しさん
07/03/17 05:44:30
>712
いや、同じファイルを重複して開けることができてしまうエディタは案外多い
一番楽なのはエディタを選ぶことかな
714:デフォルトの名無しさん
07/03/17 10:25:38
>711
パソコン初心者ですか？
自分にできないことをバッチにやらせようとするのが根本的な間違い
バッチは人がやることを自動化するだけ
バッチにやらせる前に自分でやってみろ
あとパソコン初心者の方はこちらへどうぞ
PC初心者
URLﾘﾝｸ(pc9.2ch.net)
715:714
07/03/17 11:48:37
ちなみにボクは人間初心者です
716:711
07/03/17 13:13:38
>>714
わからないんだったら黙ってろ、カス！
>>712、713
ありがとうございます。
メモ帳だと、何度でも開いてしまうようですね。
717:デフォルトの名無しさん
07/03/17 13:41:59
tasklist.exe /v /fi "imagename eq notepad.exe"
718:デフォルトの名無しさん
07/03/17 14:22:36
過去(中略)俺がこのスレにふさわしい占いバッチを作ってみたよ
今日の曜日を取得する簡単な方法はないかなぁ？
@echo off
echo ～～～レス番占い～～～
echo レス番号から性格を占います。あなたが書き込んだレスの番号を入力してください。
setlocal enabledelayedexpansion
set /P resuban=
set /A num=%resuban%%%13
set y=%date:~,4%&set m=%date:~5,2%&set d=%date:~8,2%
if "%m:~0,1%"=="0" set m=%m:~1%
if "%d:~0,1%"=="0" set d=%d:~1%
set t[1]=0&set t[2]=3&set t[3]=2&set t[4]=5&set t[5]=0&set t[6]=3&set t[7]=5&set t[8]=1&set t[9]=4&set t[10]=6&set t[11]=2&set t[12]=4
if %m% lss 3 set /a y=%y%-1
set /a i=(%y% + %y%/4 - %y%/100 + %y%/400 + !t[%m%]! + %d%) %% 7
set youbi[0]=日&set youbi[1]=月&set youbi[2]=火&set youbi[3]=水&set youbi[4]=木&set youbi[5]=金&set youbi[6]=土
set result[0]=誘導厨
set result[1]=スレ違い君
set result[2]=病人
set result[3]=発達障害
set result[4]=統合失調症
set result[5]=高機能自閉症
set result[6]=箸じゃなくても歯ブラシでも食べれることに気がついた
set result[7]=悪口書き込みたいが為だけにスタンバってる
set result[8]=どこかにうｐるという選択幅が思いつかなかった
set result[9]=自分の作ったものを誇示したかった
set result[10]=アスペルガー
set result[11]=パソコン初心者
set result[12]=人間初心者
echo.
echo 名前:%resuban%[sage] 投稿日:%date%(!youbi[%i%]!) %time:~,8%
echo ちなみにボクは!result[%num%]!です
719:デフォルトの名無しさん
07/03/17 14:36:33
可愛そうな人なんだから、そっとしておいてあげましょう。
そして、そっと心の中で早く病気が治る事を祈ってあげましょう。
720:711
07/03/19 00:25:10
>>717
ども。
それも考えたんだけど、notepadでたまたま別のファイルを開いていたら、そっちも閉じてしまわないかな？
721:デフォルトの名無しさん
07/03/19 00:36:29
tasklist.exe /v /fi "windowtitle eq filename - メモ帳"
はどう？
722:デフォルトの名無しさん
07/03/19 16:37:30
>>720
何のために/vを指定していると思う？
723:デフォルトの名無しさん
07/03/19 16:44:44
パソコンの使い方は板違いでスレ違い
724:デフォルトの名無しさん
07/03/19 16:51:54
＞それも考えたんだけど
馬鹿にされてるぞ
725:デフォルトの名無しさん
07/03/19 23:46:49
port21を即座に開放させるDOSコマンドというか、
ﾊﾞｯﾁを作りたいのですが、お知恵を拝借させてください。。。
726:デフォルトの名無しさん
07/03/19 23:48:29
>>725
port21って何？
解放って何？
727:デフォルトの名無しさん
07/03/20 00:25:15
解放じゃありません、開放です。
728:デフォルトの名無しさん
07/03/20 00:51:28
>>726
> port21って何？
( ＾∀＾)ｹﾞﾗｹﾞﾗｹﾞﾗ
729:デフォルトの名無しさん
07/03/20 01:04:31
port21を即座に開放させるってどういうこと？
730:デフォルトの名無しさん
07/03/20 02:00:11
21ってことは、FTPセッションかなんかが残っていて、困ってるんだろう・・・
Net なんとかsessionじゃ・・・たしか全部きられちゃうしなぁ。。。
731:デフォルトの名無しさん
07/03/20 02:17:08
あー、IPヘルパAPIの SetTcpEntry() だな
バッチじゃどうしようもないけれどCでプログラムつくってゴリゴリすれば何とかなるね
732:デフォルトの名無しさん
07/03/20 02:19:05
あと、TCPしか有効じゃないと思うから他のコネクション型ソケットはどうしようもない
最悪プロトコルスタックにかぶさるような形（んーと、UNIXならipfwか？）のドライバ作るしかないね
733:デフォルトの名無しさん
07/03/20 02:19:56
>>727-728
というわけで頼んだ
734:デフォルトの名無しさん
07/03/20 05:42:18
>>729
エスパーしてみるとTIME_WAITうぜぇってことじゃね?
735:デフォルトの名無しさん
07/03/20 10:57:29
パソコンの使い方を知らない人がパソコンを買っても使えないのと同じで
パソコンの使い方を知らない人がバッチを使いこなすのは無理
バッチをやるまえにパソコンの使い方を勉強しましょう
736:デフォルトの名無しさん
07/03/20 14:15:44
以上、人間初心者の主張でした。
737:デフォルトの名無しさん
07/03/20 15:05:54
そうでもないか。
738:デフォルトの名無しさん
07/03/20 15:19:36
>>735
俺 Linux だけじゃなく Windows でもプログラム作れるけど、
どちらの OS も全ての操作方法については知らないよ。
てか、アプリ全部使いこなせるわけがなかろう。
739:デフォルトの名無しさん
07/03/20 15:36:48
バッチ = キーボードマクロ+α = キーボード履歴+α = パソコンの操作
と考えればいいだろ
バッチを書く前にパソコンの操作方法を調べればいいんだよ
それができればそのままバッチに書ける
740:デフォルトの名無しさん
07/03/20 16:55:28
「アプリ全部」なんて意味のないことを書いている時点で……
741:デフォルトの名無しさん
07/03/20 17:21:44
俺様からすれば、ここにいる奴らなんて初心者とすら言えないような超初心者なんだが
742:デフォルトの名無しさん
07/03/20 20:28:09
>>707
wmic.exe使えばどう？
XPHomeEditionなので、XPProのインストール媒体から抜いて来たけど
他にも関連ファイルがあるみたいで使えないよー
743:デフォルトの名無しさん
07/03/20 21:22:27
プログラム板でパソコンの使い方を教える変なやつ
744:デフォルトの名無しさん
07/03/20 21:29:30
DOSの時代は一般教養だったかもしれんが
Windowsのコマンドプロンプトは「一般的な使い方」からは外れてるんだがな
ましてバッチとなるとその更に上の段階
745:デフォルトの名無しさん
07/03/20 21:30:42
人間初心者乙！
746:デフォルトの名無しさん
07/03/20 21:38:35
このスレを理解するための関連サイト
URLﾘﾝｸ(www.autism.jp)
747:デフォルトの名無しさん
07/03/22 18:17:18
そもそもこのスレの趣旨としているバッチファイルプログラミングとはコマンドプロンプトとか
なり似通っていて初心者はその区別が付かずに「パソコンの使い方」に属する質問を多く聞いて
くることは目に見えているんだからそういう話をすべて「変なやつ」「人間初心者乙！」で茶化
して終わるならこのスレいらないのではないだろうか。
知識豊富な人でスレが成り立つほどこの板は人が多いわけではないのだから大風呂敷敷いて、
来るもの拒まずの精神でスレ運営できないものか。
748:デフォルトの名無しさん
07/03/22 18:25:25
粘着が張り付いてるだけ。
749:デフォルトの名無しさん
07/03/22 18:31:50
そうでもないか
750:デフォルトの名無しさん
07/03/22 19:16:10
>747
初心者は本スレへ誘導してあげるのが親切
質問にレスがつけばいいわけじゃない
751:デフォルトの名無しさん
07/03/22 19:57:00
来るもの拒まずの精神でスレ運営「できない人」は1人だけじゃないか。
「変なやつ」「人間初心者乙！」と言われてる人は初心者ではなく
「できない人」ですよ。
752:デフォルトの名無しさん
07/03/22 20:09:13
＞このスレいらないのではないだろうか。
削除してもいいけど、本スレへ誘導するのに使えるから残してある
753:デフォルトの名無しさん
07/03/22 20:33:08
>>752
病院に行っても治しようがないっぽいね。かわいそうだけど。
754:デフォルトの名無しさん
07/03/23 09:19:43
shiftdown && echo on || echo off
みたいにSHIFTキーの押下で分岐するコードをよく書くんだけど
自前で作ったshiftdown相当の機能って
Windows標準のコマンドで代替きかないかな。
755:デフォルトの名無しさん
07/03/23 10:03:11
利くよ
756:デフォルトの名無しさん
07/03/23 16:49:28
MSHTA.EXE "about:<script>window.onunload=function(){new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(this.event.shiftKey);};close();resizeTo(0,0);</script>"|more
757:デフォルトの名無しさん
07/03/23 17:07:50
バッチ以外はスレ違い
758:デフォルトの名無しさん
07/03/23 17:28:41
>>757
そうだね。
だからバッチファイルで実行できる>>756はスレ違いじゃないよね。
759:デフォルトの名無しさん
07/03/23 18:46:31
@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15
eval 'exec perl -x -S "$0" ${1+"$@"}'
if 0; # In case running under some shell
require 5;
use Getopt::Std;
use Config;
760:デフォルトの名無しさん
07/03/23 18:47:01
$0 =~ s|.*[/\\]||;
my $usage = <<EOT;
Usage: $0 [-h]
or: $0 [-w] [-u] [-a argstring] [-s stripsuffix] [files]
or: $0 [-w] [-u] [-n ntargs] [-o otherargs] [-s stripsuffix] [files]
-n ntargs arguments to invoke perl with in generated file
when run from Windows NT. Defaults to
'-x -S %0 %*'.
-o otherargs arguments to invoke perl with in generated file
other than when run from Windows NT. Defaults
to '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'.
-a argstring arguments to invoke perl with in generated file
ignoring operating system (for compatibility
with previous pl2bat versions).
-u update files that may have already been processed
by (some version of) pl2bat.
-w include "-w" on the /^#!.*perl/ line (unless
a /^#!.*perl/ line was already present).
-s stripsuffix strip this suffix from file before appending ".bat"
Not case-sensitive
Can be a regex if it begins with `/'
Defaults to "/\.plx?/"
-h show this help
EOT
761:デフォルトの名無しさん
07/03/23 18:48:31
my %OPT = ();
warn($usage), exit(0) if !getopts('whun:o:a:s:',\%OPT) or $OPT{'h'};
# NOTE: %0 is already enclosed in doublequotes by cmd.exe, as appropriate
$OPT{'n'} = '-x -S %0 %*' unless exists $OPT{'n'};
$OPT{'o'} = '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9' unless exists $OPT{'o'};
$OPT{'s'} = '/\\.plx?/' unless exists $OPT{'s'};
$OPT{'s'} = ($OPT{'s'} =~ m#^/([^/]*[^/\$]|)\$?/?$# ? $1 : "\Q$OPT{'s'}\E");
my $head;
if( defined( $OPT{'a'} ) ) {
$head = <<EOT;
\@rem = '--*-Perl-*--
\@echo off
perl $OPT{'a'}
goto endofperl
\@rem ';
EOT
762:デフォルトの名無しさん
07/03/23 18:49:00
勘弁してくれ……
763:デフォルトの名無しさん
07/03/23 18:49:35
} else {
$head = <<EOT;
\@rem = '--*-Perl-*--
\@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl $OPT{'o'}
goto endofperl
:WinNT
perl $OPT{'n'}
if NOT "%COMSPEC%" == "%SystemRoot%\\system32\\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
\@rem ';
EOT
}
764:デフォルトの名無しさん
07/03/23 18:50:11
$head =~ s/^\t//gm;
my $headlines = 2 + ($head =~ tr/\n/\n/);
my $tail = "\n__END__\n:endofperl\n";
@ARGV = ('-') unless @ARGV;
foreach ( @ARGV ) {
process($_);
}
765:デフォルトの名無しさん
07/03/23 19:26:48
テスト
766:デフォルトの名無しさん
07/03/23 19:29:26
sub process {
my( $file )= @_;
my $myhead = $head;
my $linedone = 0;
my $taildone = 0;
my $linenum = 0;
my $skiplines = 0;
my $line;
my $start= $Config{startperl};
$start= "#!perl" unless $start =~ /^#!.*perl/;
open( FILE, $file ) or die "$0: Can't open $file: $!";
@file = <FILE>;
foreach $line ( @file ) {
$linenum++;
if ( $line =~ /^:endofperl\b/ ) {
if( ! exists $OPT{'u'} ) {
warn "$0: $file has already been converted to a batch file!\n";
return;
}
$taildone++;
}
if ( not $linedone and $line =~ /^#!.*perl/ ) {
if( exists $OPT{'u'} ) {
$skiplines = $linenum - 1;
$line .= "#line ".(1+$headlines)."\n";
} else {
$line .= "#line ".($linenum+$headlines)."\n";
}
$linedone++;
}
767:デフォルトの名無しさん
07/03/23 19:30:02
if ( $line =~ /^#\s*line\b/ and $linenum == 2 + $skiplines ) {
$line = "";
}
}
close( FILE );
$file =~ s/$OPT{'s'}$//oi;
$file .= '.bat' unless $file =~ /\.bat$/i or $file =~ /^-$/;
open( FILE, ">$file" ) or die "Can't open $file: $!";
print FILE $myhead;
print FILE $start, ( $OPT{'w'} ? " -w" : "" ),
"\n#line ", ($headlines+1), "\n" unless $linedone;
print FILE @file[$skiplines..$#file];
print FILE $tail unless $taildone;
close( FILE );
}
__END__
768:デフォルトの名無しさん
07/03/23 19:30:34
=head1 NAME
pl2bat - wrap perl code into a batch file
=head1 SYNOPSIS
B<pl2bat> B<-h>
B<pl2bat> [B<-w>] S<[B<-a> I<argstring>]> S<[B<-s> I<stripsuffix>]> [files]
B<pl2bat> [B<-w>] S<[B<-n> I<ntargs>]> S<[B<-o> I<otherargs>]> S<[B<-s> I<stripsuffix>]> [files]
=head1 DESCRIPTION
This utility converts a perl script into a batch file that can be
executed on DOS-like operating systems. This is intended to allow
you to use a Perl script like regular programs and batch files where
you just enter the name of the script [probably minus the extension]
plus any command-line arguments and the script is found in your B<PATH>
and run.
769:デフォルトの名無しさん
07/03/23 19:34:49
=head2 ADVANTAGES
There are several alternatives to this method of running a Perl script.
They each have disadvantages that help you understand the motivation
for using B<pl2bat>.
=over
=item 1
C:> perl x:/path/to/script.pl [args]
=item 2
C:> perl -S script.pl [args]
=item 3
C:> perl -S script [args]
770:デフォルトの名無しさん
07/03/23 19:35:23
=item 4
C:> ftype Perl=perl.exe "%1" %*
C:> assoc .pl=Perl
then
C:> script.pl [args]
=item 5
C:> ftype Perl=perl.exe "%1" %*
C:> assoc .pl=Perl
C:> set PathExt=%PathExt%;.PL
then
C:> script [args]
771:デフォルトの名無しさん
07/03/23 19:35:53
sub process {
my( $file )= @_;
my $myhead = $head;
my $linedone = 0;
my $taildone = 0;
my $linenum = 0;
my $skiplines = 0;
my $line;
my $start= $Config{startperl};
$start= "#!perl" unless $start =~ /^#!.*perl/;
open( FILE, $file ) or die "$0: Can't open $file: $!";
@file = <FILE>;
foreach $line ( @file ) {
$linenum++;
if ( $line =~ /^:endofperl\b/ ) {
if( ! exists $OPT{'u'} ) {
warn "$0: $file has already been converted to a batch file!\n";
return;
}
$taildone++;
}
if ( not $linedone and $line =~ /^#!.*perl/ ) {
if( exists $OPT{'u'} ) {
$skiplines = $linenum - 1;
$line .= "#line ".(1+$headlines)."\n";
} else {
$line .= "#line ".($linenum+$headlines)."\n";
}
$linedone++;
}
772:デフォルトの名無しさん
07/03/23 19:38:53
$head =~ s/^\t//gm;
my $headlines = 2 + ($head =~ tr/\n/\n/);
my $tail = "\n__END__\n:endofperl\n";
@ARGV = ('-') unless @ARGV;
foreach ( @ARGV ) {
process($_);
}
773:デフォルトの名無しさん
07/03/23 19:39:20
=back
B<1> and B<2> are the most basic invocation methods that should work on
any system [DOS-like or not]. They require extra typing and require
that the script user know that the script is written in Perl. This
is a pain when you have lots of scripts, some written in Perl and some
not. It can be quite difficult to keep track of which scripts need to
be run through Perl and which do not. Even worse, scripts often get
rewritten from simple batch files into more powerful Perl scripts in
which case these methods would require all existing users of the scripts
be updated.
B<3> works on modern Win32 versions of Perl. It allows the user to
omit the ".pl" or ".bat" file extension, which is a minor improvement.
B<4> and B<5> work on some Win32 operating systems with some command
shells. One major disadvantage with both is that you can't use them
in pipelines nor with file redirection. For example, none of the
following will work properly if you used method B<4> or B<5>:
C:> script.pl <infile
C:> script.pl >outfile
C:> echo y | script.pl
C:> script.pl | more
774:デフォルトの名無しさん
07/03/23 19:40:06
This is due to a Win32 bug which Perl has no control over. This bug
is the major motivation for B<pl2bat> [which was originally written
for DOS] being used on Win32 systems.
Note also that B<5> works on a smaller range of combinations of Win32
systems and command shells while B<4> requires that the user know
that the script is a Perl script [because the ".pl" extension must
be entered]. This makes it hard to standardize on either of these
methods.
775:デフォルトの名無しさん
07/03/23 19:41:08
=head2 DISADVANTAGES
There are several potential traps you should be aware of when you
use B<pl2bat>.
The generated batch file is initially processed as a batch file each
time it is run. This means that, to use it from within another batch
file you should preceed it with C<call> or else the calling batch
file will not run any commands after the script:
call script [args]
Except under Windows NT, if you specify more than 9 arguments to
the generated batch file then the 10th and subsequent arguments
are silently ignored.
Except when using F<CMD.EXE> under Windows NT, if F<perl.exe> is not
in your B<PATH>, then trying to run the script will give you a generic
"Command not found"-type of error message that will probably make you
think that the script itself is not in your B<PATH>. When using
F<CMD.EXE> under Windows NT, the generic error message is followed by
"You do not have Perl in your PATH", to make this clearer.
On most DOS-like operating systems, the only way to exit a batch file
is to "fall off the end" of the file. B<pl2bat> implements this by
doing C<goto :endofperl> and adding C<__END__> and C<:endofperl> as
the last two lines of the generated batch file. This means:
776:デフォルトの名無しさん
07/03/23 19:41:56
=over
=item No line of your script should start with a colon.
In particular, for this version of B<pl2bat>, C<:endofperl>,
C<:WinNT>, and C<:script_failed_so_exit_with_non_zero_val> should not
be used.
=item Care must be taken when using C<__END__> and the C<DATA> file handle.
One approach is:
. #!perl
. while( <DATA> ) {
. last if /^__END__$/;
. [...]
. }
. __END__
. lines of data
. to be processed
. __END__
. :endofperl
The dots in the first column are only there to prevent F<cmd.exe> to interpret
the C<:endofperl> line in this documentation. Otherwise F<pl2bat.bat> itself
wouldn't work. See the previous item. :-)
777:デフォルトの名無しさん
07/03/23 19:42:48
=item The batch file always "succeeds"
The following commands illustrate the problem:
C:> echo exit(99); >fail.pl
C:> pl2bat fail.pl
C:> perl -e "print system('perl fail.pl')"
99
C:> perl -e "print system('fail.bat')"
0
So F<fail.bat> always reports that it completed successfully. Actually,
under Windows NT, we have:
C:> perl -e "print system('fail.bat')"
1
So, for Windows NT, F<fail.bat> fails when the Perl script fails, but
the return code is always C<1>, not the return code from the Perl script.
778:デフォルトの名無しさん
07/03/23 19:46:18
=head1 NAME
pl2bat - wrap perl code into a batch file
=head1 SYNOPSIS
B<pl2bat> B<-h>
B<pl2bat> [B<-w>] S<[B<-a> I<argstring>]> S<[B<-s> I<stripsuffix>]> [files]
B<pl2bat> [B<-w>] S<[B<-n> I<ntargs>]> S<[B<-o> I<otherargs>]> S<[B<-s> I<stripsuffix>]> [files]
=head1 DESCRIPTION
This utility converts a perl script into a batch file that can be
executed on DOS-like operating systems. This is intended to allow
you to use a Perl script like regular programs and batch files where
you just enter the name of the script [probably minus the extension]
plus any command-line arguments and the script is found in your B<PATH>
and run.
779:デフォルトの名無しさん
07/03/23 19:47:15
=back
=head2 FUNCTION
By default, the ".pl" suffix will be stripped before adding a ".bat" suffix
to the supplied file names. This can be controlled with the C<-s> option.
The default behavior is to have the batch file compare the C<OS>
environment variable against C<"Windows_NT">. If they match, it
uses the C<%*> construct to refer to all the command line arguments
that were given to it, so you'll need to make sure that works on your
variant of the command shell. It is known to work in the F<CMD.EXE> shell
under Windows NT. 4DOS/NT users will want to put a C<ParameterChar = *>
line in their initialization file, or execute C<setdos /p*> in
the shell startup file.
On Windows95 and other platforms a nine-argument limit is imposed
on command-line arguments given to the generated batch file, since
they may not support C<%*> in batch files.
These can be overridden using the C<-n> and C<-o> options or the
deprecated C<-a> option.
780:デフォルトの名無しさん
07/03/23 19:47:54
=head1 OPTIONS
=over 8
=item B<-n> I<ntargs>
Arguments to invoke perl with in generated batch file when run from
Windows NT (or Windows 98, probably). Defaults to S<'-x -S %0 %*'>.
=item B<-o> I<otherargs>
Arguments to invoke perl with in generated batch file except when
run from Windows NT (ie. when run from DOS, Windows 3.1, or Windows 95).
Defaults to S<'-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'>.
=item B<-a> I<argstring>
Arguments to invoke perl with in generated batch file. Specifying
B<-a> prevents the batch file from checking the C<OS> environment
variable to determine which operating system it is being run from.
=item B<-s> I<stripsuffix>
Strip a suffix string from file name before appending a ".bat"
suffix. The suffix is not case-sensitive. It can be a regex if
it begins with `/' (the trailing '/' is optional and a trailing
C<$> is always assumed). Defaults to C</.plx?/>.
781:デフォルトの名無しさん
07/03/23 19:48:41
=item B<-w>
If no line matching C</^#!.*perl/> is found in the script, then such
a line is inserted just after the new preamble. The exact line
depends on C<$Config{startperl}> [see L<Config>]. With the B<-w>
option, C<" -w"> is added after the value of C<$Config{startperl}>.
If a line matching C</^#!.*perl/> already exists in the script,
then it is not changed and the B<-w> option is ignored.
=item B<-u>
If the script appears to have already been processed by B<pl2bat>,
then the script is skipped and not processed unless B<-u> was
specified. If B<-u> is specified, the existing preamble is replaced.
=item B<-h>
Show command line usage.
=back
782:デフォルトの名無しさん
07/03/23 19:54:41
=head1 EXAMPLES
C:\> pl2bat foo.pl bar.PM
[..creates foo.bat, bar.PM.bat..]
C:\> pl2bat -s "/\.pl|\.pm/" foo.pl bar.PM
[..creates foo.bat, bar.bat..]
C:\> pl2bat < somefile > another.bat
C:\> pl2bat > another.bat
print scalar reverse "rekcah lrep rehtona tsuj\n";
^Z
[..another.bat is now a certified japh application..]
C:\> ren *.bat *.pl
C:\> pl2bat -u *.pl
[..updates the wrapping of some previously wrapped scripts..]
C:\> pl2bat -u -s .bat *.bat
[..same as previous example except more dangerous..]
783:デフォルトの名無しさん
07/03/23 19:55:16
=head1 BUGS
C<$0> will contain the full name, including the ".bat" suffix
when the generated batch file runs. If you don't like this,
see runperl.bat for an alternative way to invoke perl scripts.
Default behavior is to invoke Perl with the B<-S> flag, so Perl will
search the B<PATH> to find the script. This may have undesirable
effects.
On really old versions of Win32 Perl, you can't run the script
via
C:> script.bat [args]
and must use
C:> script [args]
784:デフォルトの名無しさん
07/03/23 20:00:38
>>758
スレ違いではありません。問題ありません。
785:デフォルトの名無しさん
07/03/23 20:01:02
A loop should be used to build up the argument list when not on
Windows NT so more than 9 arguments can be processed.
See also L</Disadvantages>.
=head1 SEE ALSO
perl, perlwin32, runperl.bat
=cut
__END__
:endofperl
786:デフォルトの名無しさん
07/03/23 20:05:48
This is due to a Win32 bug which Perl has no control over. This bug
is the major motivation for B<pl2bat> [which was originally written
for DOS] being used on Win32 systems.
Note also that B<5> works on a smaller range of combinations of Win32
systems and command shells while B<4> requires that the user know
that the script is a Perl script [because the ".pl" extension must
be entered]. This makes it hard to standardize on either of these
methods.
787:デフォルトの名無しさん
07/03/23 21:26:07
見た目バッチでも中味が他のスクリプト言語を呼んでるだけのはスレ違い
788:787
07/03/23 21:30:14
スレ違いと言うのが快感なんです
789:デフォルトの名無しさん
07/03/23 21:35:06
長いのはアップローダあたりにうｐしてほしいです。
790:デフォルトの名無しさん
07/03/23 21:47:36
過疎スレで堅い事言うな
791:デフォルトの名無しさん
07/03/23 21:51:48
来るもの拒まずの精神
792:デフォルトの名無しさん
07/03/23 21:55:02
「スレ違い」という言葉を嘘と見抜けないようではこのスレでやっていけない。
793:デフォルトの名無しさん
07/03/23 21:56:12
大目に見よう
794:デフォルトの名無しさん
07/03/23 22:41:02
これは流石にな…
バッチスレの範疇ってお前らどこまでだと思う？
795:デフォルトの名無しさん
07/03/23 22:43:19
バッチスレの範疇がどこまでかは知らないけど
このスレの範疇は｢ファイル拡張子が ".bat"｣なのでよろしく。
796:デフォルトの名無しさん
07/03/23 22:48:34
バッチファイルプログラミング 3.bat
となってるけどプログラミングが何かわかってない馬鹿が立てたんだな
797:デフォルトの名無しさん
07/03/23 22:57:12
796は馬鹿
798:デフォルトの名無しさん
07/03/24 04:23:48
>>1-1000
スレ違い
799:デフォルトの名無しさん
07/03/24 07:47:55
つか嵐だろただの。基地外基準にして範疇を語るなと。
800:デフォルトの名無しさん
07/03/24 07:54:53
＼(^o^)／800
801:デフォルトの名無しさん
07/03/26 00:13:59
質問させてください。
バッチは、10桁の数値だと正しく計算出来ないんでしょうか。
以下を実行すると、Cが1073741823になります。
set a=9000000000
set b=2
set /a c=a/b
@echo %c%
環境はwinxpです。10桁の計算になると何か制限等があるのでしょうか。
802:デフォルトの名無しさん
07/03/26 00:23:08
2147483647より大きい数は2147483647と見なす仕様
803:デフォルトの名無しさん
07/03/26 00:25:10
>>802
即レスサンクスです
知らなかったよ～空がこんなにあおーいなんて
804:デフォルトの名無しさん
07/03/26 12:45:43
>>1-1000
すれちがい…
805:デフォルトの名無しさん
07/03/26 16:15:26
>>803
ちなみに16進数に変換すると歯切れの良い数-1になります。
806:デフォルトの名無しさん
07/03/26 16:20:09
スレタイが良くない。
バッチリファイルプログラミングにするべき。
807:デフォルトの名無しさん
07/03/26 16:36:39
プログラム板とは思えない低レベルな展開
808:デフォルトの名無しさん
07/03/27 13:55:49
バッチ処理なんてダサイからな。
今時はリアルタイム処理で即時反映だし。
夜間バッチが動かないと金額がわからないなんて変化についていけないよ。
809:デフォルトの名無しさん
07/03/27 14:39:32
ヴァー
rdコマンドで俺のappフォルダを消してしまった・・・
インストーラーを使わないソフトいろいろ入れてた
/qコマンドもつけてた
やけに時間がかかると思ったらたまたま使ってたソフトを消すところで使用中ですって出て気がついた
Janeも消えてたからいまいれなおしてきたよ
810:デフォルトの名無しさん
07/03/27 15:28:50
削除はgb使ってごみ箱に移動しとけ
811:デフォルトの名無しさん
07/03/27 18:12:00
>>809
俺も以前同じことしたw
サーバーのWindows再インストールするハメになって泣いたよ
マジ悲惨だった
全米が泣いた
812:デフォルトの名無しさん
07/03/27 18:47:24
パソコン初心者
813:デフォルトの名無しさん
07/03/27 18:51:40
'gb' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
814:デフォルトの名無しさん
07/03/27 18:56:42
ここはプログラムを作る人の板です
815:デフォルトの名無しさん
07/03/27 18:57:57
パソコンやプログラムの使い方は板違いでスレ違い
816:デフォルトの名無しさん
07/03/27 21:22:12
,.}{.、
,.:'ﾅﾎﾔ:､
／´￣ ￣｀:ヽ.
j| ／ :.＼ j|
. f .｀i / :::::.｀i f .｀i
_}Ii.I{ | ___＿__＿__..:::::::::::| ,}I!I:{
下了 ,人 ﾉ:い,.:ｫ''緜;;絲;;絲;;綿`ぇy'.八. 人. 下了
| :| }I i{ |i / ＿;:Yf,,.-－――－- ,iY＿.::ヽ. ,ｌ|. }i I{ | :|
! ::!. ｜:| .iHh ｌれ|∩ｌ|:┌三三三三三┐:|l∩|iう:l frti. ! :| | . ::|
{-‐-} ｜::! ｌ￣├三三||: | |';';';';';_;;_';';';';';| | :||三三┤￣:i ｜.:l .{-‐-}
. | ::l {‐ } ｌr‐i | |f⌒i ｌ|: | ｌ';':'父乂父､';ｌ | :|ｌf⌒i | | r‐i:| {‐::} .! :::l
| :::|. ｜ :l || |.| ｌ| .l:||: | |i'乂:ri‐i:i:乂'i| | :||| .l:ｌ | l l:ｌ i :| | :::|
. ├－┤ j,.. :! .ｌ ﾆ. ! !;:三:;ｌ|: | ｌl;王;lｴｴl;王;lｌ | :|ｌ;:三 :! !. ﾆ.:l j :!. ├:‐::┤
｜ ::| | ::! .|r‐i | ｌf⌒i ||: | |l:干:ri‐i:i:干:l| | :||f⌒i ｌ | r‐i:| | :| | .:::|
_| :::|＿.ｌ ..;:| ＿＿,ｌ|__l | ||＿.l:ｌ|, ﾆ;l;王;lｴｴl;王;l;ﾆ ;|ｌ|＿.l:| | |__|:!＿＿,l .;;r!';ﾐ;ヾ;'ゝヾ|_
マータハージマタカ
（7世紀前半 インド南西部）
817:デフォルトの名無しさん
07/03/27 22:25:18
>>814
あなたは社会生活に支障でてませんか？
818:デフォルトの名無しさん
07/03/28 05:23:18
削除ぐらいで再インストールって。バックアップ取っておくのは常識というか鉄則。
819:デフォルトの名無しさん
07/03/28 11:18:23
「削除ぐらい」ってアンタw
例えばWINDOWSフォルダの一部を削除してしまっても問題ないとでも？
実業務での定期バックアップは復旧できる最低限のみしておくのが常識だろ
キミには常識がないな
820:デフォルトの名無しさん
07/03/28 12:48:45
スルーで。
821:デフォルトの名無しさん
07/03/28 13:20:25
つかプログラマがPowerUser常用すんな
822:デフォルトの名無しさん
07/03/28 17:58:29
復旧に手間取るバックアップは意味がない。
業務ユーザならダウンタイム細小になる対策ぐらいしとけ。
823:デフォルトの名無しさん
07/03/30 21:29:59
バッチなんかプログラマが使うものじゃないでしょ
情死すが片手間で使うもんだ
824:デフォルトの名無しさん
07/03/31 15:10:52
バッチで済むところはバッチを使う。