作業内容 ルンバみたいな自動で送られてくる棚に商品をバーコードでスキャンして入れるだけ ノルマは1日3000件 拘束時間11時間(勤務時間10時間プラス休憩1時間) 時給1050円 なんj民にオススメ
YouTube API利用コードをPerlモジュール化してみた 「ゆーすけべー日記: Perl から YouTube の新API を使って動画をアップロードする」で公開されていたコードをほとんどそのまま利用させてもらってモジュールを作ってみた。 OO化してもあまり意味無さそうなので単にモジュール化しただけ。 個人的事情で IO::All を使っていた部分は IO::File を使うようにダサ方向に変更させてもらいました。すんません。 オリジナルのコードにライセンスは明記されていなかったのだけど、このコードはオリジナルのコードに準じるという事にします。 追記: 時間を置いてトラックバックpingを2回送ってみたが、反映されないみたい package Net_YouTube; use strict; use warnings; use LWP::UserAgent; use HTTP::Req
The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event. use strict; use warnings; package pQuery; our $VERSION = '0.24'; use pQuery::DOM; use Carp; use HTML::TreeBuilder(); use base 'Exporter'; our $document; *pQuery = \$document; our @EXPORT = qw(pQuery $pQuery PQUERY); my $my = {}; my $lwp_user_agent; my $quickExpr = qr/^([^<]*<(.
Now, next, and beyond: Tracking need-to-know trends at the intersection of business and technology AI/ML Few technologies have the potential to change the nature of work and how we live as artificial intelligence (AI) and machine learning (ML). Future of the Firm Everything from new organizational structures and payment schemes to new expectations, skills, and tools will shape the future of the fi
use utf8している時のlengthは文字数を数えてしまうけど、それ以外のときは、バイト数を数えるそうだ。ところで、以下のようにしたらutf8のバイト数が取れるんじゃないかと思うんだけど、あまりutf8文字列のバイト数に需要がないのか、ググっても例が出てこない。 何か見おとしているのかもしれないな。 use utf8; my $bytes = length unpack('a*',$utf8_str); use utf8での文字列のバイト数 これ、僕も昔取得方法わかんなくて困ったことがある。 ってことで啓蒙活動しとく。 bytes::lengthを使います。 use utf8; require bytes; my $bytes = bytes::length $utf8_str; 「require bytes」が大事ね「require bytes」が。もし「use bytes」しちゃっ
一行目がキーで、それ以降がデータのファイルを想定! このコードがかっこいい。id:hideden に教えてもらった。 Thanks! @row{ @fields } = split("\t" , $line ); サンプル use strict; use warnings; use Data::Dumper; my $tab = "\t"; my $DATA =<<__TAB__; id${tab}message${tab}status 1${tab}test1${tab}disable 2${tab}test2${tab}enable 3${tab}test3${tab}disable __TAB__ my $is_first_line = 1; my @fields = (); my @data = split("\n" , $DATA ); my @nice_format_data
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く