kurema

echo "test" > .\out.txt
$text=Get-Content .\out.txt
$text=$text.Replace("te","fa")
Write-Output $text | Out-File out2.txt

kurema

// 現時点でバグってるっぽい。要修正。
(async ()=>{let ps=document.querySelectorAll(".pleasure-button");for(let i=0;i<ps.length;i++){for(let j=0;j<100;j++){ps[i].click();await (msec => new Promise(resolve => setTimeout(resolve, msec)))(10);}}}).call();

kurema

//コミック (BL/TLも含む？)
//https://book.dmm.com/list/free/comic/?floor=Gcomic&article=category&price_max=0&sale=discount&sort=date
//文芸
//https://book.dmm.com/list/free/novel/?floor=Gnovel&price_max=0&sale=discount&sort=date
//ビジネス・実用
//https://book.dmm.com/list/free/otherbooks/?floor=Gotherbooks&price_max=0&sale=discount&sort=date
//女性コミック
//https://book.dmm.com/list/free/comic/?floor=Gcomicf&price_max=0&sale=discount&sort=date
//写真集
//https://book.dmm.com/list/free/photo/?floor=Gphoto&price_max=0&sale=discount&sort=date

kurema

@toku51n様のfoobarをフォークしていろいろ遊んでみた時の記録。

もう一つ、結果を文字列に埋め込んだ奴があるけどリンクコピーミスで分からん。 ideoneでフォーク結果一覧ってどうやったら見れるの？と言うか見れなくね？

kurema

about

CD-ROM『新潮文庫の100冊』の青空文庫テキスト形式変換用のファイルです。

使い方

1. 『新潮文庫の100冊』からBOOKフォルダをコピー
2. コマンドプロンプトで

mkdir out
for /d %d in (BOOK\*) do perl conv.pl %d out\%~nd.txt
renshin100.bat

kurema

TimeSpanFormatValueConverter

概要

XamlのBindingのStringFormatはTimeSpanでろくに機能しないようなので自前実装。日付を消したりできる。

説明

ConverterParameterでレイアウト指定。

表記	内容
[Days][Hours][Milliseconds][Minutes][Seconds][Ticks]	TimeSpanの時分秒などの要素で単純に表示
[TotalDays] etc	TimeSpanを時分秒単位で表示

kurema

for(my $k=0;$k<=999999;$k++){
  if($k=~ /1/ && $k=~ /2/ &&  $k=~ /3/ && $k=~ /4/ && $k=~ /5/ &&  $k=~ /6/){
    for(my $j=1;$j<=6;$j++){
      my $i=$k;
      $i=~ s/$j//g;
      $i=~ s/2/\+/g;
      $i=~ s/5/\-/g;
#      print "$i\n";
      $i=~ s/1/Uj9mMJFCSC/g;
      $i=~ s/\+/V9dBqvgbHj/g;

kurema

require 'zlib'

def file_write(fn,data)
	g = open(fn, "w")
	g.puts(data)
	g.close
end


open(ARGV[0],"rb") do |f|

kurema

$MAXNUM=100;
$SINGLEFILENUM=1000;

open(FILE, "> out/start.xhtml");
print FILE GetHtmlHead();
print FILE "<p><a href=\"".GetRLink(0)."\">START</a></p>";
print FILE GetHtmlTail();


my $currentFile=GetRFile(-$MAXNUM+1);

kurema

use encoding "cp932";

while(my $item=<STDIN>){
if($item=~ /(<dfn>(.+?)<\/dfn>)/){
my $dfn=$1;
my $txt=$2;
my $res=getKeys($txt);
$item=~ s/\Q$dfn\E/$dfn$res/g;
}
print $item;