NAME

Ssm::Business - ssm2Âбþ ¶È̳¥¢¥×¥ê¥±¡¼¥·¥ç¥óÍѥ⥸¥å¡¼¥ë

NOTES

$Id: Ssm-Business1_5.html,v 1.2 2018/08/12 23:34:55 sugu Exp $


SYNOPSIS

  $string = &hira2kata($string);
  $string = &kata2hira($string);
  ¤Ê¤É¡£ÆüËܸì¶È̳¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤¹¤ëºÝ¤ËÌò¤ËΩ¤Ä´Ø¿ô·²¡£


DESCRIPTION

bare_mail_chk()

µ¡Ç½
ʸ»úÎ󤬡¢¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤·¤ÆÂÅÅö¤«¤ò¥Á¥§¥Ã¥¯¤¹¤ë¡£ ÆþÎÏ¥Õ¥©¡¼¥à¤ËÆþÎϤµ¤ì¤¿ÃͤΥÁ¥§¥Ã¥¯¤Ê¤É¤òÁÛÄê¡£

°ú¿ô
ʸ»úÎó¡Ê1¤Ä¡Ë

Ìá¤êÃÍ
°ú¿ô¤¬Ã±°ì¤Î¥á¡¼¥ë¥¢¥É¥ì¥¹¤ÈȽÃǤǤ­¤ëÀµµ¬É½¸½¤òËþ¤¿¤·¤Æ¤¤¤ë¾ì¹ç=1 °ú¿ô¤¬Ê£¿ô¤Î¥«¥ó¥Þ¶èÀڥ᡼¥ë¥¢¥É¥ì¥¹¤ÈȽÃǤǤ­¤ëÀµµ¬É½¸½¤òËþ¤¿¤·¤Æ¤¤¤ë¾ì¹ç=2 °ú¿ô¤¬¡¢¥á¡¼¥ë¥¢¥É¥ì¥¹¤Ë»ÈÍѤǤ­¤ëʸ»ú¤Î¤ß¤Ç¹½À®¤µ¤ì¤Æ¤¤¤ë¾ì¹ç=3 ¾åµ­°Ê³°¤Î¾ì¹ç=0

Îã
unless (&bare_mail_chk($userinput) == 1){ $errormsg = ``mail address format error!''; }

hira2kata()

µ¡Ç½
°ú¿ô¤Ë´Þ¤Þ¤ì¤ëÁ´³Ñ¤Ò¤é¤¬¤Ê¤òÁ´³Ñ¥«¥¿¥«¥Ê¤ËÊÑ´¹¤¹¤ë

°ú¿ô
ʸ»úÎó¡Ê1¤Ä¡Ë

Ìá¤êÃÍ
ÊÑ´¹¸åʸ»úÎó

Îã
$katakana = &hira2kata($hiragana)

kata2hira()

µ¡Ç½
°ú¿ô¤Ë´Þ¤Þ¤ì¤ëÁ´³Ñ¥«¥¿¥«¥Ê¤òÁ´³Ñ¤Ò¤é¤¬¤Ê¤ËÊÑ´¹¤¹¤ë

°ú¿ô
ʸ»úÎó¡Ê1¤Ä¡Ë

Ìá¤êÃÍ
ÊÑ´¹¸åʸ»úÎó

Îã
$hiragana = &kata2hira($katakana)

full_comapny_name()

µ¡Ç½
°ú¿ô¤Ë´Þ¤Þ¤ì¤ë²ñ¼Ò·ÁÂÖ¤Îά¾Î¡Ê¡Ö(³ô)¡×¤ä¡ÖÍ­)¡×¤Ê¤É¡Ë¤òÀµ¼°Ì¾¾Î¤ËÌ᤹¡£ ²ñ¼Ò·ÁÂÖ¤ò¼¨¤¹Éôʬ¤È²ñ¼Ò̾ʸ»úÎó¤Î´Ö¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤¬¤¢¤ì¤Ð¡¢¼è¤ê½ü¤¯¡£

¥«¥Ã¥³/Ⱦ³Ñ¤¬»ÈÍѤµ¤ì¤Æ¤¤¤ë¤È¤­¤Ï¡¢È¾³Ñ¤ËÅý°ì¤µ¤ì¤Æ¤¤¤ëÁ°Äó¡£ ¥Õ¥©¡¼¥àÆþÎϤµ¤ì¤¿ÃͤÎÀµµ¬²½Åù¤òÁÛÄê¡£

ÊÑ´¹¤ÎÀßÄê¤Ï¡¢.ssmrc ¤Î @abbr ÇÛÎó¤Ç»ØÄê¤Ç¤­¤ë¡£ .sscrc¤Ç¤ÎÀßÄê¤Ë´Ø¤ï¤é¤º¡¢¡Ö­ê¡×¡¢¡Ö­ã¡×¡¢¡Ö­ë¡×¡Ê¤¤¤º¤ì¤âÁ´³Ñ1ʸ»ú¡Ë¤Ï ¤½¤ì¤¾¤ì¡Ö³ô¼°²ñ¼Ò¡×¡¢¡Ö³ô¼°²ñ¼Ò¡×¡¢¡ÖÍ­¸Â²ñ¼Ò¡×¤ËÊÑ´¹¤¹¤ë¡£

°ú¿ô
ʸ»úÎó¡Ê1¤Ä¡Ë

Ìá¤êÃÍ
ÊÑ´¹¸åʸ»úÎó

Îã
$company_fullname = &full_comapny_name($company)

core_comapny_yomi()

µ¡Ç½
°ú¿ô¤Ë´Þ¤Þ¤ì¤ëÁÈ¿¥¼ïÊ̤Υ«¥Êɽµ­¡Ê¡Ö¥æ¥¦¥²¥ó¥¬¥¤¥·¥ã¡×¤ä¡Ö¤«¤Ö)¡×Åù¡Ë¤ò ʸ»úÎ󤫤éÀÚ¤ê¼è¤ë¡£ ¥«¥Ã¥³¤¬»ÈÍѤµ¤ì¤Æ¤¤¤ë¤È¤­¤Ï¡¢È¾³Ñ¤ËÅý°ì¤µ¤ì¤Æ¤¤¤ëÁ°Äó¡£ ¥Õ¥©¡¼¥àÆþÎϤµ¤ì¤¿ÃͤÎÊÑ´¹Åù¤òÁÛÄê¡£

ÊÑ´¹¤ÎÀßÄê¤Ï¡¢.ssmrc ¤Î @abbr ÇÛÎó¤Ç»ØÄê¤Ç¤­¤ë¡£

°ú¿ô
ʸ»úÎó¡Ê1¤Ä¡Ë

Ìá¤êÃÍ
ÊÑ´¹¸åʸ»úÎó

Îã
$core_yomi = &core_comapny_yomi($company_yomi)

if_all_katakana()

µ¡Ç½
°ú¿ô¤¬Á´³Ñ¥«¥¿¥«¥Ê¤Î¤ß¤Ç¹½À®¤µ¤ì¤Æ¤¤¤ë¤«¥Á¥§¥Ã¥¯¤¹¤ë

°ú¿ô
ʸ»úÎó¡Ê1¤Ä¡Ë

Ìá¤êÃÍ
Á´³Ñ¥«¥¿¥«¥Ê¤Î¤ß=1 ¾¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë=0

Îã
unless (&if_all_katakana($userinput) == 1){ $errormsg = ``¥«¥¿¥«¥Ê¤Î¤ß¤ÇÆþÎϤ·¤Æ²¼¤µ¤¤¡£''; }

gen_unique_str()

µ¡Ç½
°ì°Õ¤Îʸ»úÎó¤òºîÀ®¤¹¤ë¡£ ¥Ñ¥¹¥ï¡¼¥ÉÍÑʸ»úÎó¤ÎºîÀ®¤òÁÛÄê¡£

°ú¿ô
¿ôÃÍ¡§ºîÀ®¤¹¤ëʸ»úÎó¤Î·å¿ô¡£3¡Á30¤Îʸ»úÎó¤ò»ØÄê¡£¥Ç¥Õ¥©¥ë¥È=15¡£ ʸ»úÎ󡧻ÈÍѤ¹¤ëʸ»ú¤òÁ´¤ÆÏ¢·ë¤·¤¿Ê¸»úÎó¡£ ¡¡¡¡¡¡¡¡¥Ç¥Õ¥©¥ë¥È=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_

Ìá¤êÃÍ
À¸À®¤·¤¿Ê¸»úÎó

Îã
$passwd = &gen_unique_str();

$alphabet_only = &gen_unique_str(8, 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ');


AUTHOR

  Copyright Miyabiko INOUE ( miy@web-ware.org )
  µö²Ä̵¤¯Ê£À½¡¢²þÊÑ¡¢ÇÛÉÛ¤¹¤ë¤³¤È¤ò¶Ø¤¸¤Þ¤¹¡£

NOTES

  Further information: http://web-ware.org/


SEE ALSO

perl(1).