Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
a guest
Jul 21st, 2018
66
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
text
0.15 KB
| None
|
0
0
raw
download
clone
embed
print
report
my ($currentDir) = grep substr($File::Find::dir, 0, length()) eq $_, @dirs;
my ($prName) = $File::Find::name =~ /^$currentDir\/(.*)\/.*$/;
print "$prName\n"
Add Comment
Please,
Sign In
to add comment
Public Pastes
BWR - Changelog 19/04/24
Diff | 8 min ago | 2.58 KB
СПРИНТ № 7 | Модель памяти в C++ | Урок 8: Ко...
C++ | 16 min ago | 7.16 KB
2024-04-19_stats.json
JSON | 45 min ago | 4.99 KB
2024-04-19_stats.json
JSON | 47 min ago | 4.98 KB
2024-04-19_stats.json
JSON | 48 min ago | 4.96 KB
🤑 G2A.com Free Gift Card Guide Apr 2024 FIX 🤑
GetText | 49 min ago | 0.39 KB
Input.ini
INI file | 49 min ago | 0.59 KB
🤑 G2A.com Free Gift Card Guide Apr 2024 FIX 🤑
GetText | 1 hour ago | 0.38 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!