1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
my = (2..5); мо $ItemsID = «112233445566»; foreach мое $ImageCount (@TotalImageCount) { печать «ищет |. /httpdocs/Pics/$ItemsID-$ImageCount \ _lrg|»; если ($ImageName = <. /httpdocs/Pics/$ItemsID-$ImageCount \ _lrg.*>) { печать «НАШЛА: |. /httpdocs/Pics/$ItemsID-$ImageCount \ _lrg|»; } } РЕЗУЛЬТАТ: Ищите |. /httpdocs/Pics/112233445566-2_lrg| О: |. /httpdocs/Pics/112233445566-2_lrg| Ищите |. /httpdocs/Pics/112233445566-3_lrg| Ищите |. /httpdocs/Pics/112233445566-4_lrg| О: |. /httpdocs/Pics/112233445566-4_lrg| Ищите |. /httpdocs/Pics/112233445566-5_lrg|