TOP > Web制作

Web制作記事一覧


utf8の文字列の全角英数字を半角変換(perl)

◎utf8の文字列の全角英数字を半角英数字に変換use utf8;use Jcode;$string = jcode($string)->tr('A-Za-z0-9.@?','A-Za-z0-9.@-');・・・続く >

substrで切り取った最後の文字の文字化け処理(Shift-JIS) perl

◎昔、Shift-JISで作成したサイトのリニューアルで、記事一覧を出すためにコピーの文字を一定文字数で抜き取ることに。substr関数(perl)を使用してみると、最後の文字が文字化けする場合があって見苦しい。(笑)昔も、こんなことがあって解決したと思うがすっかり忘れている。いろいろ探してみるとあり・・・続く >

アナリティクスのイベントが測定できない原因

◎新しいサイトの外部リンクへのクリック数を計測しようとして、リンクタグにアナリティクスのタグを設定しても、イベントが計測できない。アクセスなどは計測できているのに・・・・。他のサイトは、正常に計測されているのでその原因を探ると、アナリティクスのトラッキング コードが異なることを発見。アナリティクスのサ・・・続く >

画像の圧縮 perl

◎サイトの表示スピードを上げるために、画像を圧縮することにしたのでそのスクリプト。圧縮レベルは、ファイルサイズと画質から60から70がいいかも。圧縮レベル60で、ファイルサイズが大体3分の1位になる。use Image::Magick;my $press_level = "60";#圧縮レベル 1から・・・続く >

画像のサイズ取得 perl

◎#内部ファイルサイズ取得use Image::Size;($img_width, $img_height) = imgsize("$img_file");#外部ファイルサイズ取得use LWP::Simple;use GD;my $img_url = "http://www.xxx.xxx/xxx.・・・続く >

エンコードした日本語を含む動的URLの301リダイレクト

◎仕事で運営しているサイトのディレクトリ名をSEO対策として変更したので.htaccessを使って301リダイレクトしてみた。.htaccessの表記はこれ↓RewriteEngine OnRewriteRule ^old(.*)$ /new$1 [R=301,L]これは、http://www.○○○・・・続く >

画像のリサイズ perl

◎サムネイル用の画像を作成。use Image::Magick;my $in = "./xxx/xxx.jpg"; #元画像ファイルパスmy $out = "./xxx/xxx/xxx.jpg"; #画像保存先パスmy $image = Image::Magick->new; #オブジェクト作成・・・続く >



スポンサーリンク

スポンサーリンク





Copyright(C) 2009-2018 「気ままにMyRoad」 All Rights Reserved.