1. Perl / Говнокод #17092

    −155

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    open (FILE, "< /etc/info_file");
while (<FILE>) {
    $found++ if (/^\/usr\s+/);
}
close FILE;

if ($found) {
    print "# Found /usr entry in /etc/info_file\n" if ($do_debug);
} else {
    print "# Adding /home entry to /etc/info_file\n" if ($do_debug);
    open (FILE, ">> /etc/auto_master");
    print FILE "/usr    auto_usr   -noview";
    close FILE;
}

    Энтерпрайз! Махровый и беспощадный.

    Запостил: Elvenfighter, 10 Ноября 2014

    Комментарии (3) RSS

    • ava Анонимус 10.11.2014 19:35 # 0

      Задача похожа не на ентерпрайз а на админские заморочки.

      Но все равно слишком вербоз Это же перл!
      open(FILE, "+</etc/info_file");
unless(join("\n", <FILE>)=~/\/usr/) {
   print "adding";   
    open (FILE, ">> /etc/auto_master");
    print FILE "/usr    auto_usr   -noview";
    close FILE;
}
close(FILE);
      Ответить

    Добавить комментарий