ホーム

Movable Type で、管理画面で Favicon を表示したい。

Movable Type 3.2 の管理画面（アドミン）では six apart の Favicon (favicon.ico → favicon.ico) が表示されない。これは、ダウンロードした Movable Type のパッケージの中に favicon.ico ファイルがなく、テンプレートにも Favicon の記述がないから。やはり Movable Type の管理画面では six apart の Favicon を表示させたい。その場合は、以下のようにする。
  1. favicon.ico を Movable Type をインストールしたディレクトリにコピーする。とりあえず six apart からコピーしよう。 → https://www.sixapart.jp/favicon.ico
  2. tmpl/cms/header.tmpl をエディタ開く
  3. このファイルの先頭から数行目にある styles.css"... を探す。
  4. この行の後に、 favicon.ico" /> を追記する。
  5. header.tmpl を保存。
Movable Type 3.2 の管理画面（アドミン）では six apart の Favicon (favicon.ico → favicon.ico) が表示されない。これは、ダウンロードした Movable Type のパッケージの中に favicon.ico ファイルがなく、テンプレートにも Favicon の記述がないから。やはり Movable Type の管理画面では six apart の Favicon を表示させたい。その場合は、以下のようにする。
  1. favicon.ico を Movable Type をインストールしたディレクトリにコピーする。とりあえず six apart からコピーしよう。 → https://www.sixapart.jp/favicon.ico
  2. tmpl/cms/header.tmpl をエディタ開く
  3. このファイルの先頭から数行目にある styles.css"... を探す。
  4. この行の後に、 favicon.ico" /> を追記する。
  5. header.tmpl を保存。
Posted on 2006-04-10 by yas |

Perl で、複数のファイルまたがる文字列を置換するには？

以下のように、replace.conf のハッシュ変数に置換前・置換後の文字列を書いておき、replace.pl を実行する。 replace.conf の内容
#/usr/bin/perl -w

use strict;

our $HOME_DIR = '/home/youraccount';
our $DIR = "$HOME_DIR/targetdirectory";
our %WORDS = (

                'ブラウザー'   # 置換前の文字列
            =>   'ブラウザ',   # 置換後の文字列

                'ＦＴＰ'       # 置換前の文字列
            =>     'FTP',    # 置換後の文字列

# ... 以下、

                '置換前の文字列1'
            =>  '置換後の文字列1',

                '置換前の文字列2'
            =>  '置換後の文字列2'

# ... という形で追加していけばよい。

        );
1;
replace.pl の内容
#!/usr/bin/perl

require './jcode.pl';
require './replace.conf';

opendir(DIR, $DIR) or die "Couldn't open $DIR directory.";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
    if(!(-d $file) && $file ne '.' && $file ne '..' && $file ne __FILE__) {
        print "$file\n";
        replace($file);
    }
}

sub replace {

    my ($file) = @_;

    open(IN, "$DIR/$file") or die die "Couldn't open $file.";
    my @lines = <IN>;
    close(IN);
    open(OUT, ">$DIR/$file.tmp") or die die "Couldn't open $file.";
    foreach my $line (@lines) {

        &amp;jcode'h2z_sjis(\$line);

        while(my($before, $after) = each %WORDS) {

            if($line =~ /$before/) {
                $line =~ s/$before/$after/g;
            }
        }
        print OUT $line;
    }
    close(OUT);

    rename("$DIR/$file.tmp", "$DIR/$file");
    unlink("$DIR/$file.tmp");
}

1;
以下のように、replace.conf のハッシュ変数に置換前・置換後の文字列を書いておき、replace.pl を実行する。 replace.conf の内容
#/usr/bin/perl -w

use strict;

our $HOME_DIR = '/home/youraccount';
our $DIR = "$HOME_DIR/targetdirectory";
our %WORDS = (

                'ブラウザー'   # 置換前の文字列
            =>   'ブラウザ',   # 置換後の文字列

                'ＦＴＰ'       # 置換前の文字列
            =>     'FTP',    # 置換後の文字列

# ... 以下、

                '置換前の文字列1'
            =>  '置換後の文字列1',

                '置換前の文字列2'
            =>  '置換後の文字列2'

# ... という形で追加していけばよい。

        );
1;
replace.pl の内容
#!/usr/bin/perl

require './jcode.pl';
require './replace.conf';

opendir(DIR, $DIR) or die "Couldn't open $DIR directory.";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
    if(!(-d $file) && $file ne '.' && $file ne '..' && $file ne __FILE__) {
        print "$file\n";
        replace($file);
    }
}

sub replace {

    my ($file) = @_;

    open(IN, "$DIR/$file") or die die "Couldn't open $file.";
    my @lines = <IN>;
    close(IN);
    open(OUT, ">$DIR/$file.tmp") or die die "Couldn't open $file.";
    foreach my $line (@lines) {

        &amp;jcode'h2z_sjis(\$line);

        while(my($before, $after) = each %WORDS) {

            if($line =~ /$before/) {
                $line =~ s/$before/$after/g;
            }
        }
        print OUT $line;
    }
    close(OUT);

    rename("$DIR/$file.tmp", "$DIR/$file");
    unlink("$DIR/$file.tmp");
}

1;
Posted on 2006-04-07 by yas |

Perl で、POST したい。

Perl で POST するには、LWP で
my $req = HTTP::Request->new(POST => $url);
として URL を指定し、
$req->content_type('application/x-www-form-urlencoded');
$req->content('Entity=Flight&ContractID=490&Enroute=N&FlightCategory=...');
のように POST するデータを与えればよい。サーバ（CGI スクリプト）に渡すパラメータは、URL の 「?」 の後に続き、<パラメータ名1>=<値1&gt&<パラメータ名2>=<値2&gt&<パラメータ名3>=<値3&gt&…といった形で、「&」 を用いていくつものパラメータと値の組み合わせをつなげることが出来る。 以下は、FryteComm というサイトにアクセスして、XML で現在のフライト状況を取得するサンプルである。飛行機が遅れているかどうかの状況がわかる。 使用するモジュール
use LWP::UserAgent;
#!/usr/bin/perl -w

use LWP::UserAgent;

our $ua = LWP::UserAgent->new;
our $url = 'https://applecomputer:apc0606jb@flytesource.flytecomm.com/FlyteSourceGeneratorWebApp/Application';
our $query_string = 'Entity=Flight&ContractID=490&Enroute=N&FlightCategory=COM&DataView=detail&DepartureAirportCode=SFO&ArrivalAirportCode=NRT&AirlineCode=UA&FlightNumber=837';

my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query_string);

my $res = $ua->request($req);
print $res->as_string;

1;
Perl で POST するには、LWP で
my $req = HTTP::Request->new(POST => $url);
として URL を指定し、
$req->content_type('application/x-www-form-urlencoded');
$req->content('Entity=Flight&ContractID=490&Enroute=N&FlightCategory=...');
のように POST するデータを与えればよい。サーバ（CGI スクリプト）に渡すパラメータは、URL の 「?」 の後に続き、<パラメータ名1>=<値1&gt&<パラメータ名2>=<値2&gt&<パラメータ名3>=<値3&gt&…といった形で、「&」 を用いていくつものパラメータと値の組み合わせをつなげることが出来る。 以下は、FryteComm というサイトにアクセスして、XML で現在のフライト状況を取得するサンプルである。飛行機が遅れているかどうかの状況がわかる。 使用するモジュール
use LWP::UserAgent;
#!/usr/bin/perl -w

use LWP::UserAgent;

our $ua = LWP::UserAgent->new;
our $url = 'https://applecomputer:apc0606jb@flytesource.flytecomm.com/FlyteSourceGeneratorWebApp/Application';
our $query_string = 'Entity=Flight&ContractID=490&Enroute=N&FlightCategory=COM&DataView=detail&DepartureAirportCode=SFO&ArrivalAirportCode=NRT&AirlineCode=UA&FlightNumber=837';

my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query_string);

my $res = $ua->request($req);
print $res->as_string;

1;
Posted on 2006-04-04 by yas |

Java で、2 バイトから正の整数を作る方法

例えばネットワーク越しのデータのやり取りとかで、'01c0' というバイト列があったとする。そしてこの 2 バイトが続くバイト列の長さを表わしいてるような場合の処理を考える。01c0 は、2バイトで 
0x01c0 = 0x0100 + 0xc0 = 256 + 192 = 448
を表すとする。
byte[] b = {0x01, 0xc0};  // 例えば、この場合、256 + 192 = 448 となる。
int length = ((b[0] & 0xff) << 8 ) + (b[1] & 0xff);
例えばネットワーク越しのデータのやり取りとかで、'01c0' というバイト列があったとする。そしてこの 2 バイトが続くバイト列の長さを表わしいてるような場合の処理を考える。01c0 は、2バイトで 
0x01c0 = 0x0100 + 0xc0 = 256 + 192 = 448
を表すとする。
byte[] b = {0x01, 0xc0};  // 例えば、この場合、256 + 192 = 448 となる。
int length = ((b[0] & 0xff) << 8 ) + (b[1] & 0xff);
Posted on 2006-04-01 by yas |
« 先頭‹ 前…616263646566676869…次 ›最終 »