回答数
気になる
-
Active Directoryでグループにユーザーの追加を実施したい。
Active Directoyで以下コマンドを実施してグループにユーザ登録をしたいと思っております。 dsmod group "CN=SUMIDA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local" -addmbr "CN=YAMADA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local" コマンドを実施するにあたってはバッチファイルを作成し、CSVファイル(user_list.txt)にグループ名とユーザー名を持たせて一括で実施したいです。 ※CSVファイルイメージ ユーザ名,グループ名,グループ名・・・(グループ名は区) 調べながら以下の以下のように記載してみたのですが、正常には動かずです。 どの部分がまたがっているのかご教授お願いいたします。 #!/usr/bin/perl open(FILE, './user_list.txt'); @txt = <FILE>; close(FILE); $ou = "CN=SUMIDA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local"; $group_ou = "CN=YAMADA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local"; $count = 0; for my $i (@txt){ if($count!=0){ dsmod group $ou -addmbr $group_ou; } $count++;
質問日時: 2021/07/06 14:57 質問者: misaki0505
解決済
1
0
-
c言語で、チャットシステムに、送信取り消しや、放送禁止用語の取り消しなど、指定した文字をうつさない処
c言語で、チャットシステムに、送信取り消しや、放送禁止用語の取り消しなど、指定した文字をうつさない処理を行いたいのですが、どのようにしたらいいでしょうか?
質問日時: 2021/06/21 18:41 質問者: やまう
ベストアンサー
1
0
-
Raspberry Pi
Raspberry Piでおすすめの作品はありますか? 例)防犯カメラ、サーバーなど メリット デメリットも教えていただきたいです。
質問日時: 2021/06/12 10:46 質問者: Mr.RRR
ベストアンサー
1
1
-
openした後、closeしないでプログラムを終了するとどうなりますか?
openした後、closeしないでプログラムを終了するとどうなりますか? すでにオープンされているファイルハンドルを再びopenしようとすると、まず自動的にクローズするとありますが、プログラム終了時はどうなのでしょう。 まあ、プログラム中でしかファイルハンドル使えないので、どっちでも変わらないと思いますが。。。
質問日時: 2021/06/11 06:30 質問者: zyousuke
ベストアンサー
4
1
-
VB.net
CheckIt = IIf(TestMe > 1000, "Large", "Small") と If TestMe>1000 Then CheckIt="Large" Else CheckIt="Small" これって同じ意味ですか?
質問日時: 2021/06/01 21:25 質問者: katosige417
ベストアンサー
1
0
-
正規表現の 「?」 の使い方について
電話番号の正規表現で、下記のように表現するといいと教えていただきました。 /^0(?(?=[1-9]0)\d{10}|\d{9})$/ いろいろ調べてその意味について理解しようとしましたが、 0から始まる半角数字で、合計10桁か11桁ということはわかるのですが、 ?の使い方についていまいちです。 特に ?(?=[1-9]0) の部分が不明です。 詳しい解説をお願いできる方いらっしゃいますでしょうか。
質問日時: 2021/05/27 20:44 質問者: mabo52
解決済
5
1
-
積分計算の答えが合いません・・・
δ=1/EI{∫[ℓ/4→0]3Px²/8dx+∫[ℓ/2→ℓ/4]Px(ℓ-x)/8dx+∫[ℓ→ℓ/2]P(ℓ-x)²/8dx} との問題ですが何度計算しても 27Pℓ³/1536EI となってしまいます。 答えは 11Pℓ³/768EI なのですが・・・。 お返事は明日になってしまいます。 ご面倒でも計算過程がわかると助かります。どうかよろしくお願いします。
質問日時: 2021/02/20 19:10 質問者: TAKO52
ベストアンサー
2
0
-
テキストファイルで提出とは?
「レポートの提出は解答を記入したテキストファイルをアップロードしなさい。」と大学から連絡が来たのですが、テキストファイルというのはWindows内のメモ帳のことですか?
質問日時: 2021/02/10 08:53 質問者: あいうぇ
ベストアンサー
6
0
-
Windows上でPerl環境構築するには?
現在、CentOSで動いている環境がありますが、 Perlでなおかつ以下の7コマンドが必須です。 mkdir rm mv gtar find grep ps これをWindows環境で構築できますでしょうか? その為の情報等アドバイス頂けると幸いです。 もしくは、VmwarePlayerで仮想環境作ろうか迷っています。 条件としては、USB接続したTAを制御する必要があります。
質問日時: 2021/01/19 14:33 質問者: tanapyondai
解決済
4
0
-
perl LWPでURLにアクセスした時にデータを確実に取得したい(もしくはエラーを知りたい)
use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->ssl_opts( verify_hostname => 0 ); $ua->timeout(60); my $res = $ua->get( $url ); my $source = $res->content; このようにして自分のHPのあるデータを時々取得してローカルファイルを更新しています。 しかし、ごくごく稀ですが取得したデータが途切れていることがあります。 例えば、取得先のファイルの中身が以下のような4行のファイルだとすれば、aからbまで取得。そこで終了。本来eまで読み込むはずですがそこまで行かずに取得が完了しています。 ----test.html---- a b c d e ---------------- エラーが出ないためローカルファイルに間違った情報が取得され困っています。どのようにすれば確実にサーバ上のデータを取得できますか?もしくは、取得ミスに気付ける方法はありますか?
質問日時: 2021/01/10 20:44 質問者: i5tka
ベストアンサー
1
0
-
PHPからMYSQL に接続できない!(泣)
PHPからMySQLに接続できません。 ##### コード ##### <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>アドレス帳</title> </head> <body> <?php $con = mysql_connect('localhost:3306', 'root', 'password'); if (!$con) { exit('データベースに接続できませんでした。'); } $result = mysql_select_db('phpdb', $con); if (!$result) { exit('データベースを選択できませんでした。'); } $result = mysql_query('SET NAMES utf8', $con); if (!$result) { exit('文字コードを指定できませんでした。'); } $result = mysql_query('SELECT * FROM address', $con); while ($data = mysql_fetch_array($result)) { echo '<p>' . $data['no'] . ':' . $data['name'] . ':' . $data['tel'] . "</p>\n"; } $con = mysql_close($con); if (!$con) { exit('データベースとの接続を閉じられませんでした。'); } ?> </body> </html> ######################## それと、上のようにコードを書いたのにFirefoxでソースコードを見ると <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>アドレス帳</title> </head> <body> となってしまいます。(キャッシュのクリアも行いました) どうすればよいでしょうか?
質問日時: 2020/12/06 11:28 質問者: hlws
解決済
1
0
-
Word2019 文字列置換
Word2019で文字列を置換したいと思っています。 置換の元の内容は \(^o^)/ のように、\と/で囲まれた文字列で、間には1文字から10文字までの任意の文字列を探し、 これらの文字列を削除しようとしています。 置換後の文字列は空としました。 ここで、検索する文字列として \?{1,10}/ と指定して検索してみましたが、検索にかかってくれませんでした。 「ワイルドカードを使用する」にチェックは入っています。 この指定の他、いろいろ試してみましたが、うまくいきませんでした。 どうすれば削除できるか、どなたかよろしくお願いします。
質問日時: 2020/10/21 16:52 質問者: pollux0375
ベストアンサー
1
0
-
cgiでサーバーにファイルを追加する
<HTML> <BODY> <FORM action="searchai.cgi" enctype="multipart/form-data" method="post"> <INPUT type="file" name="upload_file" size="32"><BR> <INPUT type="submit" value="送信"> </FORM> </BODY> </HTML> で受け取ったデータを指定のファイル名でサーバーのディレクトリにアップロードしたいです。 #! /usr/bin/perl print "Content-type:text/html\n\n"; print << "END_OF_HTML"; <HTML> <BODY> END_OF_HTML use CGI; $query = new CGI; # ファイル名の取得 $filename = $query->param('upload_file'); # MIMEタイプの取得 $type = $query->uploadInfo($filename)->{'Content-Type'}; # ファイルの受け取り while($bytesread = read($filename, $buffer, 2048)) { $file .= $buffer; } # ファイルの保存 open(OUT, "> ./tmp.dat") or die("ファイルの保存に失敗しました。"); binmode(OUT); print(OUT $file); close(OUT); print << "END_OF_HTML"; <img src="./tmp.dat"><br> ファイル名 : $filename<br> MIMEタイプ : $type<br> </BODY> </HTML> END_OF_HTML exit; これだとファイルが「tmp.dat」になってしまうので ちゃんと画像がサーバーにアップロードされるようにしたいです。 あとファイル名はこちらで指定したいです。
質問日時: 2020/08/17 14:03 質問者: homepagemakingou
解決済
1
0
-
awk ファイル出力
教えてください。 A‐200808-01.txt このようなファイルがあります jgawk -f test.awk A‐200801-01.txt >この部分を拡張子だけを変えて出力する(A‐200801-01.csvなど) そんな事はできるでしょうか? 200808 の部分は変わるので毎回書き直さず処理したいと思います。 test.awkの中は /nakami/{ syu = substr($0,8,128); print syu } と 中略 { print } があります 分かる方がいれば教えてください。 お願いします
質問日時: 2020/08/08 12:55 質問者: kyoko_No8
解決済
2
0
-
perl パターンマッチの前後の文字数字の出力方法
ファイルの中身が以下の場合で、checkの前後の文字をファイル出力したいです。 perlで記述するにはどの様したら良いか教えてください。 File aaa ccc check 111 ddd eee abc def efg hi check 0 111 222 333 444 check xxxxx yy zzzz a 期待するファイル出力は、 check before: ccc , after: 111 check before: hi , after: 0 check before: 444 , after: xxxxx です。 宜しくお願いします。
質問日時: 2020/08/01 02:33 質問者: おかやん777
解決済
2
0
-
Perlのプログラムについて
Perlでの掲示板作成をしていましたが、エラーを解決出来なくアドバイスいただきたいです。 perl -c bbs.shでコンパイルエラーを確認しましたが、最後のヒアドキュメントの部分でエラーが出ています。ブラウザでページは表示できない状態です。 #!/usr/bin/perl $bbsfile="./bbs.dat"; &formdec; if($in{'mode'} eq "regist") { &bbspost; }; &bbsdsp; sub header { print "Content-type: text/html\n\n"; print <<"EOM"; <!DOCTYPE html> <html lang="ja"> <head> <meta charset="UTF-8" /> <title>掲示板</title> </head> <body> EOM }; sub bbsdsp { print "Content-type: text/html\n\n"; print <<"EOM"; <form action="./bbs.sh" method="POST"> <input type="hidden" name="mode" value="regist"> お名前<br> <input type="text" name="name" value="" size="40"><br><br> コメント<br> <textarea name="comment" cols="50" rows="7"></textarea><br> <input type="comment" value="投稿する"> </form> <dl> EOM open (IN,"$bbsfile"); while(<IN>){ my($no, $date, $name, $comment)=split(/&&/); print "<dt><hr>[$no] 投稿者:<b>$name</b>   投稿日時:<b>$date/b></dt><br><br>\n"; print "<dd>$comment</dd>\n"; } close(IN); print <<"EOM"; <dt><hr></dt> </dl> </body> </html> EOM exit; }; sub formdec { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } under(%in); my @buf=split(/&/,$buf); foreach (@buf) { my ($key, $val)= split(/=/); $val=~tr/+/ /; $val=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg; $val=~s/&/&/g; $val=~s/"/"/g; $val=~s/</</g; $val=~s/>/>/g; $val=~s/\r\n/<br>/g; $val=~s/\r/<br>/g; $val=~s/\n/<br>/g; $in{$key}=$val; }; }; sub bbspost{ if ($in{'name'} eq "" || $in{'comment'} eq ""){ sub header; print "入力内容に不備があります。 <br>\n"; print "ブラウザのBACKで戻ってください。 \n"; print "</body></html>\n"; exit; } $ENV{'TZ'}="JST-9"; my($sec, $min, $hour, $mday, $mon, $year, $yday, $isdst)=localtime(time); my $now=sprintf("%04d/%02d/%02d-%02d:%02d",$year+1900,$mon+1, $mday, $hour, $min); open(DAT, "+< $bbsfile"); flock(DAT,2); my $no=1; while (<DAT>) { $no++; } print DAT "$no&&$now&&$in{'name'}&&$in{'comment'}\n; close(DAT); sub header; print <<"EOM"; ありがとうございます。投稿を受理しました。 <form action="./bbs.sh"> <input type="submit" value="掲示板に戻る"> </form> </body> </html> EOM exit; };
質問日時: 2020/07/15 01:42 質問者: mimoule1998
解決済
3
0
-
C言語の問題について
任意の数の文字データをキーボードから入力して、5文字ずつ改行しながら出力するプ ログラムを作成しなさい。 【実行例】 入力: ABCDEFGHIJKLMNOPQRST 出力: ABCDE FGHIJ KLMNO PQRST 自分なりに調べたのですがわかりませんでした。回答よろしくお願いします。
質問日時: 2020/06/21 23:21 質問者: kinoh
解決済
2
0
-
perlのsplitでいきなりすぐに配列を指定する方法は?
後ろから2つ目の配列にアクセスする場合、通常は@tempを作りこのようにアクセスると思います。 my @temp = split(/tab/,$str); print $temp[-2]; しかし、以下みたいな表記でいきなり配列にアクセスする方法があったのですが思い出せません。どのような表記法ならいきなり配列の指定文字列にアクセスできますか? print split(/tab/,$str)[-2]; 宜しくお願い致します。
質問日時: 2020/06/19 02:51 質問者: vividei
ベストアンサー
2
0
-
perl 正規表現でエラー
お世話になります。 とある配列から1番目の値を取得したいのですが、 $ary[0] というように[0]が1番目になると思います。 そしてDBの中からこの値を検索する方法をしているのですが、今までは if ($username =~ /^$ary[0]$/i){ $flag1 = '1'; last; } という書き方で問題ありませんでした。 ただ、perlのバージョンを変えたからか、上記だと Nested quantifiers in regex; marked by <-- HERE in m/ ・・・ とエラーになり、うまく動作できませんでした。 []が引っかかっているようなのですが、うまく対処する方法があれば教えて頂けますと幸いです。 現在使用しているのperlのバージョンは5.10です。 宜しくお願い申し上げます。
質問日時: 2020/06/05 16:40 質問者: renaun
ベストアンサー
4
0
-
perlのgrepでmyを付けた場合と付けない場合とで結果が違うのが分からない。
最初にmyを付けない場合 @list=('a', 'aa', 'v', 'b', 'gg', 'x', 'def', 'ws', 'super', 'dd', 'wed', 'swd'); $key=grep{$list[$_] eq 'super'} (0 .. $#list); print $key; この時の実行結果は、1を示す。明らかに値は可笑しい。 次に、myを付けた場合 @list=('a', 'aa', 'v', 'b', 'gg', 'x', 'def', 'ws', 'super', 'dd', 'wed', 'swd'); my($key)=grep{$list[$_] eq 'super'} (0 .. $#list); print $key; この場合の実行結果は、8で正しい値を示します。 この両者の違いが分からない。何が原因をしているのだろうか。 その仕組を説明願います。
質問日時: 2020/05/24 18:53 質問者: usui-2015
ベストアンサー
1
0
-
Perlの全角スペース 文字化け?
10年ぐらい昔(ちょっといじった事があるぐらいの初級者レベルです)、 Perlの日本語テキスト部分で、全角スペースを利用すると、文字化けしていた記憶があるのですが、 表とか態でしたか? /エンコードしていたような記憶があります。 薄い知識も更に無くなったのに、 本日久しぶりにソースをいじって完了/確認していました。 その後に再度修正した時に、全角スペースが残っていて発見したのですが、その前から文字化けしていませんでした。 これは、UTF-8だからでしょうか、それともサーバのperlのバージョンアップでしょうか。 何処かに文字化けが無いか?探してたのがバカみたいです・・・
質問日時: 2020/05/15 07:31 質問者: naokita
解決済
1
0
-
ちょうどn文字の連続にマッチする正規表現
ちょうどn文字の連続にマッチする正規表現を教えて下さい。 https://perldoc.jp/docs/perl/5.16.1/perlreref.pod こちらにある正規表現の文法は全て使用可能です。 例えば、 abbcccddeeeeeff という文字列に対して、丁度2文字であれば、「bb」「dd」「ff」のみ検索されるようなものです。 失敗例: (.)\1(?!\1) 検索の仕組み上、不可能でしょうか? 先頭から順に、 abbcccddeeeeeff bbcccddeeeeeff bcccddeeeeeff cccddeeeeeff ccddeeeeeff cddeeeeeff ddeeeeeff deeeeeff eeeeeff eeeeff eeeff eeff eff ff f という風に検索されていくのだと思ってますが、この仕組みだと、頭の文字の前に同じ文字があるかどうかを認識するのは不可能ですからね…
質問日時: 2020/05/02 14:16 質問者: wt_res
ベストアンサー
3
0
-
畳み込みニューラルネットワーク(以下,CNN)
画像検索テクニックの主流であるCNNについての質問です. ある画像から猫を検出するプログラムを作成する場合,つぎのような手順になると思います. ①猫と猫以外の学習画像ファイルを多数集める. ②集めた学習画像ファイルの特徴量をCNNで圧縮(畳み込み+プーリング)する. ③圧縮した画像を機械学習(猫と猫以外に分類)する. ④学習結果をもとに,ある画像の中から猫を検出する. ここで,①~③まではO'REILLYやネットで勉強して概要は理解できていますが,④について理解できておらず質問します. ある画像から適当な位置と大きさの矩形領域の画像を多数抜き出して,それを学習結果と比べて猫か否かを判断すると思いますが,この時,抜き出した画像もCNNで圧縮するのでしょうか.もしくは,抜き出した画像はCNNで圧縮することなく生画像のままなのでしょうか.これが第一の疑問です. 第二の疑問として,おそらくどちらの方法もありで,適当に使い分けているのかなと予想しているのですが(単なる想像です),つぎのような疑問があります. 1)抜き出した画像もCNNで圧縮する場合 計算量が膨大になり,静止画であればともかく,動画に適用するのは難しいのではないか. 2)抜き出した画像は圧縮せず,そのままの生画像の場合 CNNで圧縮して機械学習した結果と,圧縮しないそのままの生画像を比べることで,精度良く猫を検出できるのか. 畳み込みに用いるフィルターについても疑問があるのですが,まずは,上記の疑問に助言してもらえると助かります. 宜しくお願いします.
質問日時: 2020/03/29 16:43 質問者: 昭和おやじ
解決済
1
0
-
perl のエラーC:/Perl/lib/WWW/Mechanize.pm line 1442.
Windows 10+ActivePerlの環境です。 3ヶ月に1度、5年ほど利用しているプログラム(httpsのページをチェックする)があります。 今回、実行すると Can't call method "value" on an undefined value at C:/Perl/lib/WWW/Mechanize.pm line 1442. というエラーが出て実行ができませんでした。何が原因と推測できますか? ファイル破損を疑い4ヶ月前の自作PerlスクリプトとMechanize.pmのMD5を比較しましたが同一でしたので壊れているわけではないようです。
質問日時: 2020/03/21 14:20 質問者: vividei
ベストアンサー
1
0
-
Perlでテキストファイルの一部を編集したい
Perlの勉強中なのですが、テキストファイルに書かれた特定の複数行を コメント行として編集(置換)したいのですが、うまく出来ずに悩んで います、、、。 アドバイス頂けると助かります。 ■やりたい事 以下のようなテキストファイル(test.txt)が有ったとして、 ===========ここから abcdefg hijklmn xxyyzz [aaa bbb ccc ddd eee fff] opqrstu vwxyz ===========ここまで xxyyzzから最初に現れる"]"までをマッチさせ、 その行頭に"## "を挿入する。 ===========ここから abcdefg hijklmn ## xxyyzz [aaa bbb ## ccc ddd ## eee fff] opqrstu vwxyz ===========ここまで ■試したこと ===========ここから #! /usr/bin/perl my $file = 'test.txt'; open my $fh, '<', $file or die "Can't open $file: $!"; my $page = do { local $/; <$fh> }; my $str1 = ''; if ( $page =~ m|(xxyyzz \[.+?\]\n)|s ) { $str1 = $1; $str1 =~ s/^/## /mg; print "$str1"; } ===========ここまで 複数行マッチまではなんとか辿り着いたのですが、当然このやり方では マッチした行しか出力させられず、途方に暮れています、、、。 なにかヒントを頂けると嬉しいです。 宜しくお願いします。
質問日時: 2020/02/12 01:51 質問者: norizo99
ベストアンサー
1
0
-
LinuxにおいてのPerlのプログラムの強制終了の仕方
Perlのプログラムを流したのですが、そのプログラムの中身の編集を間違えたまま流してしまいました。 そのプログラムを強制終了する方法を教えていただきたいです。 ちなみに、そのプログラムと同じもので中身が少し違うプログラムを4つほど流している状態です。 なので『PS』コマンドを使用してもどれがどれだかわかりません。 すみませんが、どなたか教えていただけるとありがたいです。 どうかよろしくお願いします。
質問日時: 2020/01/30 11:24 質問者: rie78
ベストアンサー
3
0
-
こんにちは ブラケッツでプログラミングを学び始めたのですが htmlファイルに入力した文字をウェブ画
こんにちは ブラケッツでプログラミングを学び始めたのですが htmlファイルに入力した文字をウェブ画面に表示するところで→エクスプローラーで表示にすると文字化けになってしまいます→Chromeで表示すると正常に表示されます これを改善するにはどうしたらいいのでしょうか詳しい方おられましたら教えてくださいよろしくお願いします。 Windows 8
質問日時: 2020/01/09 17:54 質問者: maricoon
ベストアンサー
2
0
-
exit aaaa();
Perlを読んでいます。 subばかりなるPerlで、どこからはじまるのかと思ったら、 一か所subの外側に、 exit aaa(); という行がありました。 おそらく、mainにあたるのがこの行のみのようですが、 このような使い方を調べても、なかなかみつからず、 解説をお願いしたいです。 プログラムの全体は、以下のようなかんじです。 #!/bin/perl sub bb{ ..... } sub cc{ ..... } exit aaa(); sub aa{ .... }
質問日時: 2019/12/15 15:07 質問者: ojasve
ベストアンサー
1
0
-
Wコロン
Perl学習通算5日目くらいです。 既存プログラムに $status = aa::bb(cc,dd); や aa::bb cc::dd; のような記述があり ここでの::の意味を知りたいのですが、 この::の名称または、この使い方の名前を教えていただけますか?
質問日時: 2019/12/12 18:27 質問者: ojasve
ベストアンサー
2
0
-
プログラム、5分から初めて10分毎にマッチさせるには?
プログラム、5、15,25・・・55分枚にマッチさせたいです。 とりあえず思いつくところではこんな感じですがあまりいいとは思えません。 もっと良い方法はありますでしょうか? --perl--- for(;;){ my ( $sec, $min, $hour, $mday, $mon, $year, $wno ) = localtime(time); if ( $min == 5 || $min == 15 || $min == 25 || $min == 35 || $min == 45 || $min == 55) { print "hit>$min\n"; sleep 60; } sleep 1; }
質問日時: 2019/12/07 17:13 質問者: takumiio
解決済
1
0
-
Perlでの文字列置換
Perlで特殊文字の入った文字列置換を行いたいです。 例えば HTMLファイルの中の <a href = “http://abc.jp>を <a href = “http://def.jp>に変えるとき $old = ‘abc’; $new = ‘def’; open(INFILE,”test.html”) while(<INFILE>){ print "infile\n"; if($_=~m|$old|){ $_=~s|$old|$new|g; } } close INFILE; で動きますが、URLに'?'が入ると検索が動作しません。 ?の他にも<,&,%,なども特殊文字があります。 これらの文字が入った置換を行うにはどのようにしたら良いでしょうか?
質問日時: 2019/11/15 13:53 質問者: ojasve
解決済
4
0
-
PerlからPython3へ移行したい おすすめの勉強法や書籍は?
今までPerlのスクリプトを使っておりそれが大量にあります。 機械学習でPython3を使いたくなったのと、保守性の観点からPython3の練習を兼ねてPerlをPython3に書き換えています。 ただ、いちいち機能から調べながらするのも大変で、自動で変換するようなプログラムやPerlならこうPython3ならこうと説明のあるサイトや書籍はありますか? 対比してあるものがあれば学習が捗る気がしています。 若しくは、他の方法でも効率的に勉強できる方法があれば教えていただければ幸いです。
質問日時: 2019/10/16 03:35 質問者: vividei
解決済
2
0
-
PerlでUTF-8のファイルの文字列置換をワンライナーで行いたい
Perlで、UTF-8のテキストファイル内の文字列置換をワンライナーで行いたいのですが、可能でしょうか。 現状は、以下のような書式を実行しています。 perl -pi.bak -e "s/置換前/置換後/gi;" "入力.txt" しかし、上記ですと、入力ファイルの文字コードがUTF-8では処理されません。 UTF-8のファイルを処理するにはどのようにしたら良いでしょうか。ワンライナーでは無理でしょうか。 環境は、Windows10、ActivePerl(perl 5, version 28, subversion 1 v5.28.1)です。 ご存じの方がおられましたら、お教え頂けると有難いです。
質問日時: 2019/10/15 16:40 質問者: willow75
ベストアンサー
6
0
-
perl 初等プログラミングについて
条件文において、配列の中身を変数で取り出すとエラーが起きます。 また、配列の中身を変数で取り出し、別の変数に移してから条件文で使ってもエラーが起きます。 また、エラーメッセージは条件文において0で割っているというものですが、そのようなことはありません。 以下コード内容 $a = 10000; $b = 3; $d = 1; my @primenumbers; $primenumbers[0] = 2; while($a <= 11000){ while($b <= sqrt $a) { $c = 0; $flaga = 0; while($c <= $b){ $f = $primenumbers[$c]; print $f; if($b % $f == 0){ $flaga = 1; $c = $b } $c = $c + 1; } if($flaga == 0){ $primenumbers[$d] = $b; $d = $d + 1; } $b = $b + 1; } $e = 0; $flagb = 0; while($e <= $d){ $g = $primenumbers[$e]; if($a % $g == 0){ $flagb =1; $e = $d; } $e = $e + 1; } if($flagb == 0){ print "\n"; print $a; print "Prime!"; } $a = $a + 1; } 以下出力&エラーメッセージ Illegal modulus zero at 100.pl line 13. 2 エラーの理由がわかる方がいたら原因を教えてくださると非常にありがたいです。
質問日時: 2019/10/01 12:55 質問者: jackychainsaw
ベストアンサー
4
0
-
perl の -Mの挙動が理解できない 何故でしょうか?また、どうすればいいでしょうか?
for(;;){ $elapse = -M "test.txt"; print $elapse; print "\n"; if($elapse >= 0.5){ unlink("test.txt"); exit; } sleep 1; } ファイルの最終更新からの経過時間を監視して、最終更新時間より12時間経過したら自動で削除するプログラムなのですが、常に同じ時間が表示されてしまいます。 何故、このような挙動になるのでしょうか? また、どのようにすればスマートに経過時間を調べて削除できますか?
質問日時: 2019/09/11 04:45 質問者: remixiii
ベストアンサー
1
0
-
perlで年間カレンダーを作るモジュールを探しています
perlで年間カレンダーを作るモジュールを探しています。 モジュール名と使い方を教えて下さい。よろしくお願いします。
質問日時: 2019/09/07 21:46 質問者: usui-2015
解決済
1
0
-
サクラエディターの設定の仕方をお教えください
サクラエディターでテキストを開き テキストファイルの中に下記のWEBをダブルクリックで立ち上げれました https://www.google.com/ またフォルダーも下記の様にするとダブルクリックしたら立ち上がるのですが file://D:\user 以前下記の様な書き方でも立ち上がったのですがその設定を思出せません D:\user どなたかその設定をお教えいただけませんか Win10 sakura 2.3.1.0 です。
質問日時: 2019/08/16 23:27 質問者: yama0192
ベストアンサー
1
0
-
Perlで縦横変換のような事をしたいです
Perlにお詳しい方お願いします。 以下のような買い物リスト(商品名でソートされています)を バナナ Aさん バナナ Bさん バナナ Cさん ブドウ Aさん ブドウ Cさん リンゴ Aさん リンゴ Bさん 以下のように横並びにしたいです。 バナナ Aさん・Bさん・Cさん ブドウ Aさん・Cさん リンゴ Aさん・Bさん splitで商品名と依頼主を分けて、商品名が1つ上の列と 同じだったら行の最後に追加をします方法にしたいと 思っていますけれど、現在考えています方法ですと、 (1つ上の列と比較しています為に)2名までしか対応が 出来ませんで、A~Cさんの3名の対応が出来ません。 依頼主何名でもOKという具合でプログラムを作りたい ですので、お詳しい方よろしくお願いします。
質問日時: 2019/06/27 16:37 質問者: risaghon
ベストアンサー
3
0
-
逆スラッシュを使わずにメタ文字自身とマッチさせるには
逆スラッシュを使わずにメタ文字自身とマッチさせる方法はありますか。 例えば、 my($ptn) = 'a(b)c'; のようなパターンにマッチさせたいときに、 'a(b)c' =~ /$ptn/; だとマッチしません。 $ptnの値に手を加えることなく、簡単にマッチさせる方法をご教授いただきたく思います。
質問日時: 2019/06/09 18:15 質問者: zyousuke
ベストアンサー
3
0
-
これをjavaとGUIを使って作りたいんですけど プログラムわかる人いますか?
これをjavaとGUIを使って作りたいんですけど プログラムわかる人いますか?
質問日時: 2019/06/06 17:32 質問者: たろ264
解決済
1
0
-
P.Cのシングルチューナーとダブルチューナーの違い
シングルチューナーの場合P.CをしていてTVがみたくなったら、P.Cの電源を一回落とさないとTVに切り替えられないのでしょうか、それともソフトなどはそのままで切り替えられるのでしょうか?
質問日時: 2019/05/27 17:17 質問者: なつきです
ベストアンサー
2
0
-
解決済
2
0
-
PERL requireについて
require 'http://aaa/aaa.pl'; 上記の他のドメインのPLファイルを読み込むことは出来ますか? またほかの方法で実現は可能でしょうか?
質問日時: 2019/04/22 14:37 質問者: kana58d
解決済
2
0
-
PERLについて
$A = "空白空白A空白空白空白B空白空白"; 上記のような文字列から 空白を取り除いて ,(カンマ) に変換するにはどうすれば良いでしょうか? $A = "A,B" にしたい。
質問日時: 2019/04/17 18:06 質問者: lasdfasdfas
解決済
2
0
-
Perlについて
open(OUT,">>$aaa") || &err_dsp("オープンエラー $aaa"); print OUT "$bbb\n"; close(OUT); 上記だとファイルの最後にレコードが追加されますが、それを先頭にするにはどうすれば良いでしょう? $aaa------ 111 222 $bbb ---------- 上の順番を $aaa------ $bbb 111 222 ---------- 上のようにしたい。
質問日時: 2019/04/17 16:42 質問者: lasdfasdfas
解決済
2
0
-
Perl 文字化けについて
PERLのCGIで「撮影」文字が「暫影」と文字化けしてしまいます。 これを回避するにはどうすれば良いでしょうか? CGIスクリプトはSHIFT_JISで作成してます。 Perlのバージョン 5.008007 OS:linux use Encode; (Ver. 2.88)が使えます use utf8; (Ver. 1.05)が使えます
質問日時: 2019/04/16 13:16 質問者: lasdfasdfas
解決済
5
0
-
プログラムを全くいじってないのにこの時点でエラーが出てしまいます 対処方法を教えてください
プログラムを全くいじってないのにこの時点でエラーが出てしまいます 対処方法を教えてください
質問日時: 2019/04/12 13:49 質問者: ヤヤ
解決済
1
0
-
[perl] s/b/B/ for @A; と for(@A){s/b/B/;}は何故同じ?
perlについて for(@array){ s/b/B/; } は時々使うのですが、 s/b/B/ for @array; でも同じようです。この書式の意味がわからないのですがなぜおなじになるのでしょうか? また、 @before = map {$_ =~ s/b/B/; $_} @before; とも全く同じ意味でしょうか? また、こちらは良い方法があったら教えていただきたいのですが、何年もperlを使っているのですがmapとgrepの使い方はググらない書けないのですが覚えるためのいい方法はありますか?
質問日時: 2019/03/24 23:43 質問者: vividei
解決済
2
0
-
サイト内の動画を保存する方法を教えてください!よろしくお願いします!
サイト内の動画を保存する方法を教えてください!よろしくお願いします!
質問日時: 2019/02/24 14:42 質問者: サクラ02
ベストアンサー
3
0
-
Cygwin64のtermio(s).hについて
Cygwiun64を使ってUSBーRS232c変換モジュールを使って、COMポートから送受信したいのですが、LINUX(アットマークテクノ社のArmadillo)で動いているソースをコンパイルすると下のようなエラーが出ます。 ---------------- eogateway.c:292:12: エラー: ‘TCSETS’ undeclared (first use in this function); did you mean ‘TCGETS’? ioctl(fd, TCSETS, &TtyAttr); ---------------- GCCのディレクトリを調べると、termio.hあるいはtermioss.hがないためにTCSETSなどの定義がないようです。これを解決する方法はあるのでしょうか?
質問日時: 2019/02/20 17:30 質問者: マットマット
解決済
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
日本古来の伝統工芸「金継ぎ」で修復した食器は前と同じように使えるの?
大切にしている食器が割れてしまったら、きっと誰もが「元に戻したい」と願うだろう。「教えて!goo」にも「割ってしまったお気に入りの食器を復活できる?」という質問があり、最適な方法について様々な意見が寄せら...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
bashスクリプト
-
perlのrequireの動き方についての質問
-
ファイルをディレクトリ分配のプロ...
-
アルファベットに付いて質問します...
-
#!/usr/bin/perlで書きだしたCGIを...
-
Perlのエラーについてご教授くださ...
-
perlのflock関数でロックをかけたま...
-
AI sisterとは、偽物の人ですか?
-
ファイルアイコンの左下に緑の□の中...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにどのよ...
-
perlで2次元配列をサブルーチンに...
-
Perlで時間の計算
-
perlについて
-
perlの構文でカンマの意味が分からない
-
perlについての質問
-
perlのプログラミング 部分入れ替え...
-
ペプシコーラとコカ・コーラとDr Pe...
-
perlをバージョンアップしたら、今...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
openした後、closeしないでプログラ...
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
Perlで特定文字列から特定文字列ま...
-
perlをバージョンアップしたら、今...
-
Wallpaper Engineでおすすめの壁紙...
-
arduino の割り込み処理について
-
アルファベットに付いて質問します...
-
Strawberry Perl for Windows で Ou...
-
Perlで時間の計算
-
このファイルを開く方法で困ってい...
-
TeraPadエディターの操作方法について
-
cgiでサーバーにファイルを追加する
-
フローチャート 九九
-
LinuxにおいてのPerlのプログラムの...
-
perl 初等プログラミングについて
-
Perlのエラーについてご教授くださ...
-
こんにちは ブラケッツでプログラミ...
-
bashスクリプト
-
perlプログラミング 空白行削除
おすすめ情報