perl -ne 'BEGIN { $fnum=0; open $fh, ">", sprintf "xx%02d", $fnum++ } if (m/-/) { open $fh, ">", sprintf "xx%02d", $fnum++ } else { print $fh $_ }' inputfileorfileshere
Или аналогичную строку reopen-into-new-file-on-matching-Соответствующая через awk
или что-то еще.
Вы можете использовать переменные среды, доступные в PAM, например$PAM_TYPE
#!/bin/sh
if [ "$PAM_TYPE" != "open_session" ]
then exit 0
else
Your script here
Редактировать :Ссылка:http://www.linux-pam.org/Linux-PAM-html/sag-pam_exec.html