perl html エスケープ

Quick Edit Pencil

さぼてん: 【Perl】HTML エスケープとXSS対策

# HTML
my $html = qq|<script language="JavaScript">alert('にょろ');</script>\n|;

# 関数 xss()
print xss($html);

sub xss {
my $str = shift || return(undef);
$str =~ s/&/&amp;/g;
$str =~ s/</&lt;/g;
$str =~ s/>/&gt;/g;
$str =~ s/\"/&quot;/g;
$str =~ s/\'/&#39;/g; return($str);
}

このブログの人気の投稿

WP: 投稿一覧にカスタム分類・タクソノミーのカラムを追加する

イメージ
WordPressカスタム分類、タクソノミーを登録したら必ず行う管理画面のカスタマイズ「投稿一覧にカラムを表示」 同じ結果を３通りの方法で実現できる。 管理画面のカスタマイズ 投稿一覧にタクソノミーのカラムを追加する 管理画面のカスタマイズ 投稿一覧にカスタム分類の列を追加する３通りの方法： function.php の register_taxonomy() で設定 プラグインで設定する方法 function.php　フックを追加する方法 管理画面のカスタマイズ 1. 投稿一覧にカスタム分類のカラムを追加する： function.php の register_taxonomy() で設定する方法 function.php の register_taxonomy()　に設定値を追加する方法 register_taxonomy('area', 'post', array( 'labels' => array( 'name' => '地域名' ), 'hierarchical' => true, 'show_admin_column' => true )); 管理画面のカスタマイズ 2. 投稿一覧にカスタム分類のカラムを追加する： プラグインで設定する方法 プラグイン　Custom Post Type UI（CPT UI）　のタクソノミーの追加と編集から「管理画面でカラムを表示」を「True」にする方法 管理画面のカスタマイズ 3. 投稿一覧にカスタム分類のカラムを追加する： function.php　フックを追加する方法 投稿タイプを指定 <?php // 投稿一覧にカスタム分類のカラムの追加 function add_custom_column( $defaults ) { $defaults['add_area'] = '地域名'; //$defaults['add_[name]'] = '[タクソノミー名]'; return $defaults; } add_fi...
Read more »

AutoHotkey+powershell タスクバーをバーを自動的に隠すショートカット

タスクバーの表示と非表示.ahk #Persistent ; タスクバーの非表示化 TaskBarHide = 1 return !2:: ; タスクバーの非表示化 if TaskBarHide = { WinHide,ahk_class Shell_TrayWnd TaskBarHide = 1 } else { WinShow,ahk_class Shell_TrayWnd TaskBarHide = } return Windowsでタスクバーを消す - Liner Note on Hatena WinHide - Syntax & Usage | AutoHotkey タスクバーを自動で隠す設定(コンパネ表示).ahk #Persistent #NoEnv #SingleInstance, Force psScript = ( Get-ControlPanelItem -CanonicalName """Microsoft.Taskbar""" | Show-ControlPanelItem ) !2:: Run PowerShell.exe -Command %psScript% [PS1] Powershell で「タスクバーを自動的に隠す」を設定する | オールトの雲 タスクバーを自動で隠す(レジストリ値).ahk #Persistent psScript = ( $regp = """HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3"""; $regv = (get-item $regp).getvalue("""Settings"""); if(($regv[8] -band 0x01) -eq 0x00){$regv[8] = $regv[8] -bor 0x01}else{$regv[8] = $regv[8] -band 0xFE}; set-itemproperty $regp -...
Read more »

Windows 10で、Explorerのナビゲーション ウィンドウの表示/非表示を、キーボードショートカットで切り替える方法

AutoHotkeyを使いキーボードショートカットを割り当てます。AutoHotkeyについては最後に説明。 AutoHotkeyをインストールします。 メモ帳で次のコードをコピペして保存します。 任意の名前.ahk とりあえずデスクトップに保存しダブルクリックして実行します。 /* Author: Date: Contact: */ #NoTrayIcon #Persistent #NoEnv #SingleInstance, Force #IfWinActive ahk_class CabinetWClass #z:: Send !v{n}{enter} エクスプローラーをアクティブにして　Winキー + z でナビゲーション ウィンドウの表示／非表示を切り替えられます。 ウインドウズエクスプローラーにはナビゲーション ウィンドウの表示/非表示を切り替えるショートカットは提供されていないため、キーボードから操作するならば次のようにキーを組み合わせて実行するしかありません。 エクスプローラー＞Alt>v>n>Enter このキーの組み合わせをAutoHotkeyを使いExplorerがアクティブな時にWin+zに割り当てます。（リマップする）。このスクリプト（マクロ）が上記のコードです。 リマップ - AutoHotkey Wiki ちなみにエクスプローラー標準のショートカットでは Alt+p でプレビューパネル Alt+Shift+p で詳細パネルの表示／非表示を表示できます。 AutoHotkeyとは ユーティリティソフトで、ユーザーがマクロ言語を記述して実行するとこで様々な機能を拡張することができるスクリプトエンジンです。AutoHotkey本体を実行してもヘルプしか出てきません。 AutoHotkey 　ダウンロード AutoHotkey - Wikipedia 　日本語 windows 7 - Keyboard shortcut to hide/show Explorer navigation - Super User
Read more »

Windows10でアプリケーションごとに輝度を設定、自動で変更する　-　AutoHotkey

AutoHotkeyスクリプトで実現。 AutoHotkeyをダウンロードしてスクリプトをコピペして輝度を変更したいソフトを指定してファイル保存、保存したファイルをダブルクリックして実行するとタスクバーの通知エリアに常駐するので、不要になれば終了する。とても簡単です。 グラフィック系アプリを使うときは最大輝度にて、ブラウザやオフィス系アプリに移動したらデフォルトの輝度に戻す-という使い方が最近多い。 チャームから輝度を変更できるが都度面倒なので、アプリを切り替える度に、設定した輝度に自動で変更するスクリプトを調べてみた。（イベントはアクティブウインドウの変更又はActiveWindowの切り替え） フリーソフトなども調べてみたがアプリ毎に輝度を設定できるユーティリティは見つけられなかった。 当初、PowerShellで実現できる予定だったが、アクティブウインドウ変更のイベント取得方法がわからなかったので、AutoHotkeyを使いアプリ毎に輝度の変更を自動で行うスクリプトをつくってみた。（ほぼコピペでスミマセン、一応思い通りの結果が得られて満足） マーカー部分が追記分 60行目に輝度を設定するアプリを文字列で指定。アプリ毎に識別できる文字列を含む変数が違うので ウィンドウを特定する - hoge を参考に設定。 ノートやタブレットなどの液晶一体型でウインドウズから輝度を調整できるパソコンでのみ効きます。 #Persistent ; スクリプトを常駐させる /* GPD WINの画面輝度をあれこれするAutoHotkeyスクリプト http://qiita.com/diaphragm/items/9769c79789d7a9958f8a 輝度を変更するスクリプト */ prev_brightness := GetBrightness() GetBrightness() { WMI := "winmgmts:{impersonationLevel=impersonate}!\\.\root\WMI" MonitorBrightness := ComObjGet(WMI).ExecQuery("SELECT * FROM WmiMonitorBrightness WHERE Activ...
Read more »

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

※PowerShell初心者 ※下の方に画像が持つExif情報を列挙する方法もあります。 例えば、あるJPG画像（C:\IMG_0001.JPG）のカメラ機器のモデル名とExifの撮影日時に関する情報が欲しいとします。 1. PowerShellでは、Get-ItemPropertやGet-ChildItemを使いFileInfoプロパティ取ることができます。 $path = "C:\IMG_0001.JPG" Get-ItemProperty $path | Select-Object * | Format-List $path = "C:\IMG_0001.JPG" Get-ChildItem $path | Format-List -property * 結果: しかし、Get-ItemPropert等を使い取ることができるFileInfoプロパティには必要な情報がありません。 そこで、 GetDetailsOf を使い、ファイルプロパティの詳細情報から必要な情報を取得します。 PSPath : Microsoft.PowerShell.Core\FileSystem::C:\IMG_0001.JPG PSParentPath : Microsoft.PowerShell.Core\FileSystem::C:\ PSChildName : IMG_0001.JPG PSDrive : C PSProvider : Microsoft.PowerShell.Core\FileSystem Mode : -a---- VersionInfo : File: C:\IMG_0001.JPG InternalName: OriginalFilename: FileVersion: FileDescription: Product: ...
Read more »

onloadの代わりにDOMContentLoadedを使ってみる

onloadの代わりにDOMContentLoadedを使ってみる - へぼいいいわけ onloadイベントだと DOM の構築が完了しても画像を読み込み終わるまで待ってしまうので、代わりにDOMContentLoadedイベントを使って処理させてみます。 IE にはDOMContentLoadedがないのでdocument.documentElement.doScroll("left")を監視して DOM 構築が終わるまで 再帰 しています。 // DOM構築完了時の処理 function load() { /* なんかいろいろ */ } ; // ユーザーエージェント var userAgent = navigator.userAgent.toLowerCase(); // ページの構築が完了したらloadを呼び出す ( function () { if ( document .addEventListener) { // opera,safari,mozilla向け document .addEventListener( "DOMContentLoaded" , load, false ); } else if ( /msie/ .test(userAgent)) { // IE向け try { document .documentElement.doScroll( "left" ); } catch (error) { setTimeout( arguments .callee, 0); return ; } load(); } else { // その他 window .onload = load; } } )();
Read more »

AppleScript 改行 コード 置換

改行を置換 returnキーはLF、ASCII character (10)と\nはLF、ASCII character (13)と\rはCR、controlキー + returnキーはラインブレーク   (* テスト文字列を変数にセット *) set str to "1LINE(LF)" & ( ASCII character (10)) & "2LINE(CR)" & ( ASCII character (13)) & "3LINE(LineBrake) 3LINE_2" log " ★生 str: " & str & " ★ " (* ★生 str: 1LINE(LF) 2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*LF 置換 *) set LFstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\n//g'" log " ★ LF 置換 str: " & LFstr & " ★ " (* ★ LF 置換 str: 1LINE(LF)2LINE(CR) 3LINE(LineBrake) 3LINE_2 ★ *)   (*CR 置換 *) set CRstr to do shell script "echo " & quoted form of str & " | perl -pe 's/\\r//g'" log " ★ CR 置換 str: " & CRstr & " ★ " (* ★ CR 置換 str: 1LINE(LF) 2LINE(CR)3LINE(LineBrake) 3LINE_2 ★ *)   (* ラインブレーク置換 *) set LAINBLAKEstr ...
Read more »