__awa__ の回答履歴

あるデータファイル中に以下のようなデータがあります。 >1234 adjaiubgubmcauouamaouagamouaucamougauyouajmouaguau zadaaboueroauahcaoqqpeuaoqueiiulgjaogahiapnnfaugao ・ ・ >1235 ajfaoufaobayanfaggsofudjjmlacxaoueytiaulmfglaguaou agaohghmfjghucpoepppppfagaaewetfhafhdaugyaiygyaygi ・ ・ >1236 ・ ・ 「>・・」はそれ以下の文字列のIDをあらわしています。各文字列はそれぞれIDを持っています。IDごとに30文字の文字列を（ランダムに）ｘ回抽出するプログラムを教えてください。考えているうちにぜんぜんわからなくなりました。取得した文字列は元のデータファイル中に以下のように上書きをしたいです。「>」以下にはその文字列を取得したIDとそのID内のデータの何行目から何行目までのデータを取得したかを表す タグがほしいです。そのような仕様の文字列取得作業を全部でランダムにX回したいと考えております。以下の実行例のように取得する文字列は一部かぶってもぜんぜん結構です。 昨日から考えていますが、限界に来ました。 長い説明になって申し訳ございませんが、よろしくお願いします。 ≪元のデータファイルに上書きされた実行例≫ >1234from1to30 adjaiubgubmcauouamaouagamouauc >1236from51to81 aijewqmikfugpoirexcxgragukgewj >1235from47to77 guauzadaaboueroauahcaoqqpeuaoq ・ ・

あるデータファイル中に以下のようなデータがあります。 >1234 adjaiubgubmcauouamaouagamouaucamougauyouajmouaguau zadaaboueroauahcaoqqpeuaoqueiiulgjaogahiapnnfaugao ・ ・ >1235 ajfaoufaobayanfaggsofudjjmlacxaoueytiaulmfglaguaou agaohghmfjghucpoepppppfagaaewetfhafhdaugyaiygyaygi ・ ・ >1236 ・ ・ 「>・・」はそれ以下の文字列のIDをあらわしています。各文字列はそれぞれIDを持っています。IDごとに30文字の文字列を（ランダムに）ｘ回抽出するプログラムを教えてください。考えているうちにぜんぜんわからなくなりました。取得した文字列は元のデータファイル中に以下のように上書きをしたいです。「>」以下にはその文字列を取得したIDとそのID内のデータの何行目から何行目までのデータを取得したかを表す タグがほしいです。そのような仕様の文字列取得作業を全部でランダムにX回したいと考えております。以下の実行例のように取得する文字列は一部かぶってもぜんぜん結構です。 昨日から考えていますが、限界に来ました。 長い説明になって申し訳ございませんが、よろしくお願いします。 ≪元のデータファイルに上書きされた実行例≫ >1234from1to30 adjaiubgubmcauouamaouagamouauc >1236from51to81 aijewqmikfugpoirexcxgragukgewj >1235from47to77 guauzadaaboueroauahcaoqqpeuaoq ・ ・

別サーバーのファイルを以下のようにすると、読み込みは可能となりました。 このファイルに書き込むロジックを調べているのですが、 中々見つかりません。 どのようにすれば、書き込む事が出来るのでしょうか。 $url = "http://www.test.jp/test.dat"; require LWP::UserAgent; $ua = new LWP::UserAgent; $request = new HTTP::Request('GET', $url); $response = $ua->request($request); if ($response->is_success) { $content = $response->content; } @DATA = $content;

最近、perlを独学で勉強し始めたものです。 １行で複数回データの入力を行いたいのですが、データを入力するたびに改行されてしまいます。 今は$変数=<STDIN>としているのですが、STDINで取得したデータには\nが含まれているようなので、chompを使うのかと考えているのですがどうしたらいいのか分かりません。それとも何か別の方法があるのでしょうか？

最近、perlを独学で勉強し始めたものです。 １行で複数回データの入力を行いたいのですが、データを入力するたびに改行されてしまいます。 今は$変数=<STDIN>としているのですが、STDINで取得したデータには\nが含まれているようなので、chompを使うのかと考えているのですがどうしたらいいのか分かりません。それとも何か別の方法があるのでしょうか？

最近、perlを独学で勉強し始めたものです。 １行で複数回データの入力を行いたいのですが、データを入力するたびに改行されてしまいます。 今は$変数=<STDIN>としているのですが、STDINで取得したデータには\nが含まれているようなので、chompを使うのかと考えているのですがどうしたらいいのか分かりません。それとも何か別の方法があるのでしょうか？

最近、perlを独学で勉強し始めたものです。 １行で複数回データの入力を行いたいのですが、データを入力するたびに改行されてしまいます。 今は$変数=<STDIN>としているのですが、STDINで取得したデータには\nが含まれているようなので、chompを使うのかと考えているのですがどうしたらいいのか分かりません。それとも何か別の方法があるのでしょうか？

横70文字縦100文字のデータを横X文字のデータを縦にY行整列させ、その結果をもとのファイルに上書きするプログラムを作成しようとしています。横X文字のデータは最初のデータのどこをとってもよく、他の行の一部とかぶってもいいです。X、Yはランダムです。横にX文字ファイルに上書きしたら、またランダムなX文字を次の行に上書きします。かなり考えましたが、作成したプログラムがうまくいきません。どなたか教えてください。よろしくお願いします。 #! /usr/bin/perl my $filename = "reference.fasta"; open FILE, "+< $filename" or die "$!"; my $tmp; my $count = 0; while(my $c = getc FILE){ next if($c eq "\n"); $array[$count] = $c; $count++; } for($j=0;$j<50;$j++){ $var = int(rand 50); for($i=0;$i<$var;$i++){ # print FILE $array[$j][$i]; $tmp .= $array[$j][$i]; } print FILE $tmp, "\n"; } close FILE;

縦100文字横70文字のデータが入ったデータファイルを横50文字にして並べ直したいと思い、まず試しに標準出力でそれがうまくいくかやってみたのですが、うまくいきません。もしお分かりであれば教えていください。よろしくお願いいたします。 #! /usr/bin/perl $filename = "reference.txt"; open HANDLE, "<$filename" or die "cannot open :$!"; print "open success\n"; @array = <HANDLE>; $count = 1; foreach $var (@array) { chomp $var; # print $var; if($count==50){ print $var, "\n"; } else{ print $var; } $count++; } close HANDLE; print "\n";

縦100文字横70文字のデータが入ったデータファイルを横50文字にして並べ直したいと思い、まず試しに標準出力でそれがうまくいくかやってみたのですが、うまくいきません。もしお分かりであれば教えていください。よろしくお願いいたします。 #! /usr/bin/perl $filename = "reference.txt"; open HANDLE, "<$filename" or die "cannot open :$!"; print "open success\n"; @array = <HANDLE>; $count = 1; foreach $var (@array) { chomp $var; # print $var; if($count==50){ print $var, "\n"; } else{ print $var; } $count++; } close HANDLE; print "\n";

NextTrainと言う時刻表表示ソフトを使っているのですが ７種類の時刻表を１つの時刻表ファイルにまとめて 一度で見れるようにしたいのです。 peal初めてで色々と読んでみてもよく解りませんでした。 今の状況は、ActivePerl 5.10.0.1003 をセットアップして、 　『Hello World』を表示させる事は出来ました。 『例として６時から８時までをソートしてみます』 【分でソート前】 06: a22 a52　 b07 c25 c47 c58 c51 　 d25 　　 e55 07: a12 a30 a40 a49 a58 c09 c21 c34 c46 c59 d13 d24 d37 d49 e15 e34 e44 e53 08: a07 a17 a28 a38 a47 b04 b45 c12 c25 c38 c51 d02 d21 d32 d42 e58 【分でソート完了】 06: b07 a22 c25 d25 c47 c51 a52 e55 c58 07: c09 a12 d13 e15 c21 d24 a30 c34 e34 d37 a40 e44 c46 a49 d49 e53 a58 c59 08: d02 b04 a07 c12 a17 d21 c25 a28 d32 a38 c38 d42 b45 a47 c51 e58 　※分の前に付いているアルファベットはバスの系統なので必ず付きます。 　　Perlで無くても簡単に出来る方法があれば教えてください。 　　アドバイスよろしくお願いします。