▼スレッド
│
└◇894:Re[13]:初歩の質問です……。 [ミル] 01/18 15:13

　├◇895:Re[14]:初歩の質問です……。 [moon] 01/18 15:29
　└◇896:階層が深いそうなのでこちらに [ミル] 01/18 15:52<-last

あ、すみません。myは外してテストしたんです。そしたら出来なかったからmyを入れてみて……というようにやったので、そこから貼り付けてしまったようで……。度々申し訳ないです。
> 例えば、
> 　　$pos = index('aaaaZaaa', 'Z')なら$posは4（0から数えるので）
> 　　$pos = index('aaaaZaaa', 'X')なら$posは-1（'X'は存在しないので）
> ということです。
なるほど……。一つずつ減らすとして、もし入れる数がaaaZaaだと$posは3になるわけですね？("aaa"Zaa

> あ、すみません。myは外してテストしたんです。そしたら出来なかったからmyを入れてみて……というようにやったので、そこから貼り付けてしまったようで……。度々申し訳ないです。

そうすると、@ljblines = &opendat(index($sp, 'Mn') != -1 ? $jobmdat : $jobwdat);の前に&get_userがされていないという可能性もあります。
@ljblines = 〜;の前にpush(@msg, "\$sp = $sp<br>");を入れてテストをしてなんと表示されるかを確認してみてください。
「$sp = 」というように$sp = の後に何も表示されないのであれば&get_userが実行されていない（もしくは読み込めなかったとかデータが壊れているとか）ということです。

うーん……。push(@msg, "\$sp = $sp<br>");を指定された場所に組み込んで、テストしてみても変わりはありませんでした。

と、文の中に&get_userの記述を見つけたので、その後
に@ljblines = &opendat(index($sp, 'Mn') != -1 ? $jobmdat : $jobwdat);を置いてみると……。
見事、出来ました！
男は男だけ。女は女だけの職しか選べませんっ！（嬉
いやはや、私なんぞに付き合ってくださってありがとうございました……。