fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. 		# From: Social Share Media
  5. 		# BSD 3 Clause License
  6. 		# Check us out : https://g...content-available-to-author-only...b.com/bradvin/social-share-urls
  7.  
  8. package SocialShareMedia::SocialShareURLs;
  9. use strict;
  10.  
  11. sub GetSocialMediaSites_NiceNames {
  12. 	return [
  13. 		'add.this'=>'AddThis',
  14. 		'blogger'=>'Blogger',
  15. 		'buffer'=>'Buffer',
  16. 		'diaspora'=>'Diaspora',
  17. 		'digg'=>'Digg',
  18. 		'douban'=>'Douban',
  19. 		'email'=>'EMail',
  20. 		'evernote'=>'EverNote',
  21. 		'getpocket'=>'Pocket',
  22. 		'facebook'=>'FaceBook',
  23. 		'flattr'=>'Flattr',
  24. 		'flipboard'=>'FlipBoard',
  25. 		'google.bookmarks'=>'GoogleBookmarks',
  26. 		'instapaper'=>'InstaPaper',
  27. 		'line.me'=>'Line.me',
  28. 		'linkedin'=>'LinkedIn',
  29. 		'livejournal'=>'LiveJournal',
  30. 		'gmail'=>'GMail',
  31. 		'hacker.news'=>'HackerNews',
  32. 		'ok.ru'=>'OK.ru',
  33. 		'pinterest.com'=>'Pinterest',
  34. 		'google.plus'=>'GooglePlus',
  35. 		'qzone'=>'QZone',
  36. 		'reddit'=>'Reddit',
  37. 		'renren'=>'RenRen',
  38. 		'skype'=>'Skype',
  39. 		'sms'=>'SMS',
  40. 		'stumbleupon'=>'StumbleUpon',
  41. 		'surfingbird.ru'=>'SurfingBird.ru',
  42. 		'telegram.me'=>'Telegram.me',
  43. 		'threema'=>'Threema',
  44. 		'tumblr'=>'Tumblr',
  45. 		'twitter'=>'Twitter',
  46. 		'vk'=>'VK',
  47. 		'weibo'=>'Weibo',
  48. 		'xing'=>'Xing',
  49. 		'yahoo'=>'Yahoo',
  50. 	];
  51. }
  52.  
  53.  
  54. sub GetSocialMediaSites_WithShareLinks_OrderedByPopularity {
  55. 	return [
  56. 		'google.plus',
  57. 		'google.bookmarks',
  58. 		'facebook',
  59. 		'reddit',
  60. 		'twitter',
  61. 		'linkedin',
  62. 		'tumblr',
  63. 		'pinterest',
  64. 		'blogger',
  65. 		'livejournal',
  66. 		'evernote',
  67. 		'add.this',
  68. 		'getpocket',
  69. 		'hacker.news',
  70. 		'stumbleupon',
  71. 		'digg',
  72. 		'buffer',
  73. 		'flipboard',
  74. 		'instapaper',
  75. 		'surfingbird.ru',
  76. 		'flattr',
  77. 		'diaspora',
  78. 		'qzone',
  79. 		'vk',
  80. 		'weibo',
  81. 		'ok.ru',
  82. 		'douban',
  83. 		'xing',
  84. 		'renren',
  85. 		'threema',
  86. 		'sms',
  87. 		'line.me',
  88. 		'skype',
  89. 		'telegram.me',
  90. 		'email',
  91. 		'gmail',
  92. 		'yahoo',
  93. 	];
  94. }
  95.  
  96. sub GetSocialMediaSites_WithShareLinks_OrderedByAlphabet {
  97. 	my ($args) = @_;
  98.  
  99. 	my $nice_names = GetSocialMediaSites_NiceNames();
  100.  
  101. 	return keys %$nice_names;
  102. }
  103.  
  104. 		# Social Media Site Links With Share Links
  105. 		# -------------------------------------------------
  106.  
  107. sub encode {
  108. 	my ($args) = @_;
  109.  
  110. 	return $args;
  111. }
  112.  
  113. sub GetSocialMediaSiteLinks_WithShareLinks {
  114. 	my ($args) = @_;
  115.  
  116. 	my $url = encode($args->{url});
  117. 	my $title = encode($args->{title});
  118. 	my $image = encode($args->{image});
  119. 	my $desc = encode($args->{desc});
  120. 	my $app_id = encode($args->{appid});
  121. 	my $redirect_url = encode($args->{redirecturl});
  122. 	my $via = encode($args->{via});
  123. 	my $hash_tags = encode($args->{hashtags});
  124. 	my $provider = encode($args->{provider});
  125. 	my $language = encode($args->{language});
  126. 	my $user_id = encode($args->{userid});
  127. 	my $category = encode($args->{category});
  128. 	my $phone_number = encode($args->{phonenumber});
  129. 	my $email_address = encode($args->{emailaddress});
  130. 	my $cc_email_address = encode($args->{ccemailaddress});
  131. 	my $bcc_email_address = encode($args->{bccemailaddress});
  132.  
  133. 	my $text = $title;
  134.  
  135. 	if($desc) {
  136. 		$text .= '%20%3A%20';	# This is just this, " : "
  137. 		$text .= $desc;
  138. 	}
  139.  
  140. 	return {
  141. 		'add.this'=>'http://w...content-available-to-author-only...s.com/bookmark.php?url=' . $url,
  142. 		'blogger'=>'https://w...content-available-to-author-only...r.com/blog-this.g?u=' . $url . '&n=' . $title . '&t=' . $desc,
  143. 		'buffer'=>'https://b...content-available-to-author-only...r.com/add?text=' . $text . '&url=' . $url,
  144. 		'diaspora'=>'https://s...content-available-to-author-only...n.org/?title=' . $title . '&url=' . $url,
  145. 		'digg'=>'http://d...content-available-to-author-only...g.com/submit?url=' . $url . '&title=' . $text,
  146. 		'douban'=>'http://w...content-available-to-author-only...n.com/recommend/?url=' . $url . '&title=' . $text,
  147. 		'email'=>'mailto:' . $email_address . '?subject=' . $title . '&body=' . $desc,
  148. 		'evernote'=>'http://w...content-available-to-author-only...e.com/clip.action?url=' . $url . '&title=' . $text,
  149. 		'getpocket'=>'https://g...content-available-to-author-only...t.com/edit?url=' . $url,
  150. 		'facebook'=>'http://w...content-available-to-author-only...k.com/sharer.php?u=' . $url,
  151. 		'flattr'=>'https://f...content-available-to-author-only...r.com/submit/auto?user_id=' . $user_id . '&url=' . $url . '&title=' . $title . '&description=' . $text . '&language=' . $language . '&tags=' . $hash_tags . '&hidden=HIDDEN&category=' . $category,
  152. 		'flipboard'=>'https://s...content-available-to-author-only...d.com/bookmarklet/popout?v=2&title=' . $text . '&url=' . $url, 
  153. 		'gmail'=>'https://mail.google.com/mail/?view=cm&to=' . $email_address . '&su=' . $title . '&body=' . $url . '&bcc=' . $bcc_email_address . '&cc=' . $cc_email_address,
  154. 		'google.bookmarks'=>'https://www.google.com/bookmarks/mark?op=edit&bkmk=' . $url . '&title=' . $title . '&annotation=' . $text . '&labels=' . $hash_tags . '',
  155. 		'instapaper'=>'http://w...content-available-to-author-only...r.com/edit?url=' . $url . '&title=' . $title . '&description=' . $desc,
  156. 		'line.me'=>'https://l...content-available-to-author-only...e.me/share/ui?url=' . $url . '&text=' . $text,
  157. 		'linkedin'=>'https://w...content-available-to-author-only...n.com/shareArticle?mini=true&url=' . $url . '&title=' . $title . '&summary=' . $text . '&source=' . $provider,
  158. 		'livejournal'=>'http://w...content-available-to-author-only...l.com/update.bml?subject=' . $text . '&event=' . $url,
  159. 		'hacker.news'=>'https://n...content-available-to-author-only...r.com/submitlink?u=' . $url . '&t=' . $title,
  160. 		'ok.ru'=>'https://c...content-available-to-author-only...k.ru/dk?st.cmd=WidgetSharePreview&st.shareUrl=' . $url,
  161. 		'pinterest'=>'http://p...content-available-to-author-only...t.com/pin/create/button/?url=' . $url ,
  162. 		'google.plus'=>'https://plus.google.com/share?url=' . $url . '&text=' . $text . '&hl=' . $language,
  163. 		'qzone'=>'http://s...content-available-to-author-only...q.com/cgi-bin/qzshare/cgi_qzshare_onekey?url=' . $url,
  164. 		'reddit'=>'https://r...content-available-to-author-only...t.com/submit?url=' . $url . '&title=' . $title,
  165. 		'renren'=>'http://w...content-available-to-author-only...n.com/dialog/share?resourceUrl=' . $url . '&srcUrl=' . $url . '&title=' . $text . '&description=' . $desc,
  166. 		'skype'=>'https://w...content-available-to-author-only...e.com/share?url=' . $url . '&text=' . $text,
  167. 		'sms'=>'sms:' . $phone_number . '?body=' . $text,
  168. 		'stumbleupon'=>'http://w...content-available-to-author-only...n.com/submit?url=' . $url . '&title=' . $text,
  169. 		'surfingbird.ru'=>'http://s...content-available-to-author-only...d.ru/share?url=' . $url . '&description=' . $desc . '&screenshot=' . $image . '&title=' . $title,
  170. 		'telegram.me'=>'https://content-available-to-author-only.me/share/url?url=' . $url . '&text=' . $text . '&to=' . $phone_number,
  171. 		'threema'=>'threema://compose?text=' . $text . '&id=' . $user_id,
  172. 		'tumblr'=>'https://w...content-available-to-author-only...r.com/widgets/share/tool?canonicalUrl=' . $url . '&title=' . $title . '&caption=' . $desc . '&tags=' . $hash_tags,
  173. 		'twitter'=>'https://t...content-available-to-author-only...r.com/intent/tweet?url=' . $url . '&text=' . $text . '&via=' . $via . '&hashtags=' . $hash_tags,
  174. 		'vk'=>'http://content-available-to-author-only.com/share.php?url=' . $url . '&title=' . $title . '&comment=' . $desc,
  175. 		'weibo'=>'http://s...content-available-to-author-only...o.com/share/share.php?url=' . $url . '&appkey=&title=' . $title . '&pic=&ralateUid=',
  176. 		'xing'=>'https://w...content-available-to-author-only...g.com/app/user?op=share&url=' . $url,
  177. 		'yahoo'=>'http://c...content-available-to-author-only...o.com/?to=' . $email_address . '&subject=' . $title . '&body=' . $text,
  178. 	};
  179. }
  180.  
  181. my @social_media_names = @{GetSocialMediaSites_WithShareLinks_OrderedByPopularity() || []};
  182. my $social_media_urls = GetSocialMediaSiteLinks_WithShareLinks({
  183. 		url=>'https://w...content-available-to-author-only...t.com/',
  184. 		title=>'EarthFluent',
  185. });
  186.  
  187. foreach my $social_media_name(@social_media_names) {
  188. 	my $social_media_url = $social_media_urls->{$social_media_name};
  189.  
  190. 	print($social_media_name . ' : ' . $social_media_url . "\n\n");
  191. }
Success #stdin #stdout 0s 4348KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
google.plus : https://plus.google.com/share?url=https://w...content-available-to-author-only...t.com/&text=EarthFluent&hl=

google.bookmarks : https://www.google.com/bookmarks/mark?op=edit&bkmk=https://w...content-available-to-author-only...t.com/&title=EarthFluent&annotation=EarthFluent&labels=

facebook : http://w...content-available-to-author-only...k.com/sharer.php?u=https://w...content-available-to-author-only...t.com/

reddit : https://r...content-available-to-author-only...t.com/submit?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent

twitter : https://t...content-available-to-author-only...r.com/intent/tweet?url=https://w...content-available-to-author-only...t.com/&text=EarthFluent&via=&hashtags=

linkedin : https://w...content-available-to-author-only...n.com/shareArticle?mini=true&url=https://w...content-available-to-author-only...t.com/&title=EarthFluent&summary=EarthFluent&source=

tumblr : https://w...content-available-to-author-only...r.com/widgets/share/tool?canonicalUrl=https://w...content-available-to-author-only...t.com/&title=EarthFluent&caption=&tags=

pinterest : http://p...content-available-to-author-only...t.com/pin/create/button/?url=https://w...content-available-to-author-only...t.com/

blogger : https://w...content-available-to-author-only...r.com/blog-this.g?u=https://w...content-available-to-author-only...t.com/&n=EarthFluent&t=

livejournal : http://w...content-available-to-author-only...l.com/update.bml?subject=EarthFluent&event=https://w...content-available-to-author-only...t.com/

evernote : http://w...content-available-to-author-only...e.com/clip.action?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent

add.this : http://w...content-available-to-author-only...s.com/bookmark.php?url=https://w...content-available-to-author-only...t.com/

getpocket : https://g...content-available-to-author-only...t.com/edit?url=https://w...content-available-to-author-only...t.com/

hacker.news : https://n...content-available-to-author-only...r.com/submitlink?u=https://w...content-available-to-author-only...t.com/&t=EarthFluent

stumbleupon : http://w...content-available-to-author-only...n.com/submit?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent

digg : http://d...content-available-to-author-only...g.com/submit?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent

buffer : https://b...content-available-to-author-only...r.com/add?text=EarthFluent&url=https://w...content-available-to-author-only...t.com/

flipboard : https://s...content-available-to-author-only...d.com/bookmarklet/popout?v=2&title=EarthFluent&url=https://w...content-available-to-author-only...t.com/

instapaper : http://w...content-available-to-author-only...r.com/edit?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent&description=

surfingbird.ru : http://s...content-available-to-author-only...d.ru/share?url=https://w...content-available-to-author-only...t.com/&description=&screenshot=&title=EarthFluent

flattr : https://f...content-available-to-author-only...r.com/submit/auto?user_id=&url=https://w...content-available-to-author-only...t.com/&title=EarthFluent&description=EarthFluent&language=&tags=&hidden=HIDDEN&category=

diaspora : https://s...content-available-to-author-only...n.org/?title=EarthFluent&url=https://w...content-available-to-author-only...t.com/

qzone : http://s...content-available-to-author-only...q.com/cgi-bin/qzshare/cgi_qzshare_onekey?url=https://w...content-available-to-author-only...t.com/

vk : http://content-available-to-author-only.com/share.php?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent&comment=

weibo : http://s...content-available-to-author-only...o.com/share/share.php?url=https://w...content-available-to-author-only...t.com/&appkey=&title=EarthFluent&pic=&ralateUid=

ok.ru : https://c...content-available-to-author-only...k.ru/dk?st.cmd=WidgetSharePreview&st.shareUrl=https://w...content-available-to-author-only...t.com/

douban : http://w...content-available-to-author-only...n.com/recommend/?url=https://w...content-available-to-author-only...t.com/&title=EarthFluent

xing : https://w...content-available-to-author-only...g.com/app/user?op=share&url=https://w...content-available-to-author-only...t.com/

renren : http://w...content-available-to-author-only...n.com/dialog/share?resourceUrl=https://w...content-available-to-author-only...t.com/&srcUrl=https://w...content-available-to-author-only...t.com/&title=EarthFluent&description=

threema : threema://compose?text=EarthFluent&id=

sms : sms:?body=EarthFluent

line.me : https://l...content-available-to-author-only...e.me/share/ui?url=https://w...content-available-to-author-only...t.com/&text=EarthFluent

skype : https://w...content-available-to-author-only...e.com/share?url=https://w...content-available-to-author-only...t.com/&text=EarthFluent

telegram.me : https://content-available-to-author-only.me/share/url?url=https://w...content-available-to-author-only...t.com/&text=EarthFluent&to=

email : mailto:?subject=EarthFluent&body=

gmail : https://mail.google.com/mail/?view=cm&to=&su=EarthFluent&body=https://w...content-available-to-author-only...t.com/&bcc=&cc=

yahoo : http://c...content-available-to-author-only...o.com/?to=&subject=EarthFluent&body=EarthFluent
https://ideone.com/rnq9Wg
Demonstration for this github project:<br><br>https://g...content-available-to-author-only...b.com/bradvin/social-share-urls<br><br>See project for licensing.
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!